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ABSTRACT 

Results of a fluid mechanics measurement program in oscillating flow within a 
circular duct are presented. The program began with a survey of transition behavior over a 
range of oscillation frequency and magnitude and continued with a detailed study at a single 
operating point. Such measurements were made in support of Stirling engine development. 
Values of three dimensionless parameters, Re max , Re w , and Ar, embody the velocity 
amplitude, frequency of oscillation and mean fluid displacement of the cycle, respectively. 
Measurements were first made over a range of these parameters which included operating 
points of all Stirling engines. Next, a case was studied with values of these parameters that 
are representative of the heat exchanger tubes in the heater section of NASA's Stirling cycle 
Space Power Research Engine (SPRE). Measurements were taken of the axial and radial 
components of ensemble-averaged velocity and rms-velocity fluctuation and the dominant 
Reynolds shear stress, at various radial positions for each of four axial stations. In each 
run, transition from laminar to turbulent flow, and its reverse, were identified and sufficient 
data was gathered to propose the transition mechanism. Models of laminar and turbulent 
boundary layers were used to process the data into wall coordinates and to evaluate skin 
friction coefficients. Such data aids in validating computational models and is useful in 
comparing oscillatory flow characteristics to those of fully-developed steady flow. 

Data were taken with a contoured entry to each end of the test section and with flush 
square inlets so that the effects of test section inlet geometry on transition and turbulence 
are documented. 

The following is presented in two volumes. Volume I contains the text of the report 
including figures and supporting appendices. Volume II contains data reduction program 
listings and tabulated data (including its graphical presentation). 
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1.0036 

0.1894 

1.4671 

0.2347 

30 

0.8890 

0.1785 

1.1121 

0.2284 

1.5998 

0.2684 

32 

0.9858 

0.2257 

1.2272 

0.2704 

1.7320 

0.3013 


4 




r/R = 0.974 

r/R *0.968 

r/R *0.948 

e 

u 

u’ 

•» - 
u 

u' 

at 

U 

u’ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

36 

1.1154 

0.2655 

1.3962 

0.3193 

1.9690 

0.3611 

40 

1.2384 

0.3272 

1.5175 

0.3745 

2.1915 

0.4221 

44 

1 . 3854 

0.3739 

1.7041 

0.4054 

2.3792 

0.4547 

46 

1.5686 

0.4187 

1.8652 

0.4388 

2.6197 

0.4560 

62 

1.6829 

0.4248 

2.0333 

0.4442 

2.8492 

0.4453 

66 

1.7636 

0.4207 

2.1452 

0.4514 

2.9400 

0.4566 

60 

1.8286 

0.4076 

2.2499 

0.4518 

3.1060 

0.4586 

64 

1.9466 

0.4041 

2.3708 

0.4863 

3.2852 

0.4592 

68 

2.0000 

0.4324 

2.4300 

0.4437 

3.4210 

0.4097 

72 

2.1032 

0.4275 

2.5282 

0.4380 

3.5521 

0.4671 

76 

2.1631 

0.3764 

2.6479 

0.4289 

3.6767 

0.4325 

80 

2.2167 

0.3059 

2.6572 

0.3186 

3.7516 

0.3347 

84 

2.1763 

0.1811 

2.6489 

0.1956 

3.7345 

0.2318 

88 

2.1186 

0.1144 

2.5982 

0.1366 

3.6743 

0.1620 

92 

2.0741 

0.0684 

2.5459 

0.0744 

3.6151 

0.0953 

96 

2.0519 

0.0380 

2.5246 

0.0450 

3.5843 

0.0480 

100 

2.0180 

0.0186 

2.4691 

0.0259 

3.5579 

0.0190 

104 

1.9424 

0.0135 

2.4026 

0.0217 

3.4661 

0.0257 

108 

1.8980 

0.0088 

2.3398 

0.0012 

3.3902 

0.0154 

112 

1.8170 

0.0116 

2.2580 

0.0210 

3.2888 

0.0000 

116 

1.7318 

0.0114 

2.1524 

0.0097 

3.1533 

0.0127 

120 

1.6515 

0.0026 

2.0488 

0.0179 

3.0317 

0.0020 

124 

1.5635 

0.0070 

1.9355 

0.0116 

2.9058 

0.0079 

128 

1.4546 

0.0116 

1.8172 

0.0054 

2.7336 

0.0121 

132 

1.3361 

0.0149 

1.6903 

0.0157 

2.5548 

0.0000 

136 

1.2183 

0.0092 

1.5457 

0.. 0115 

2.3485 

0.0137 

140 

1.0667 

0.0124 

1.3675 

0.0140 

2.1189 

0.0136 

144 

0.9028 

0.0081 

1.1706 

0.0085 

1.8831 

0.0065 

148 

0.7579 

0.0116 

0.9944 

0.0098 

1.6397 

0.0143 

152 

0.6464 

0.0020 

0.8262 

0.0061 

1.4033 

0.0076 

156 

0.4054 

0.0120 

0.6557 

0.0070 

1.1269 

0.0090 

160 

0.1983 

0.0074 

0.3804 

0.0080 

0.8470 

0.0083 

164 

0.0553 

0.0030 

0.1332 

0.0077 

0.5494 

0.0136 

168 

0.0022 

0.0010 

0.0137 

0.0017 

0.1929 

0.0060 

172 

0.0053 

0.0007 

0.0038 

0.0004 

0.0116 

0.0014 

176 

0.0001 

0.0000 

0.0002 

0.0002 

0.0077 

0.0009 

180 

0.0277 

0.0019 

0.0476 

0.0038 

0.0645 

0.0032 


5 



SPRE 


s/d « 0.33 


r/R * 0.928 r/R = 0.861 r/R « 0.728 


6 

0 

u’ 

U 

u' 

0 

u’ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

4 

0.3266 

•O'. 1696 

0.2064 

0.1675 

0.0785 

0.0973 

8 

0.5746 

0.1386 

0.5877 

0.1775 

0.4488 

0.1776 

12 

0.8030 

0.1016 

0.9220 

0.1323 

0.8599 

0.1336 

14 

0.9426 

0.1024 

1.0984 

0.1267 

1.0638 

0.1254 

16 

1.0669 

0.0987 

1.2743 

0.1249 

1.2543 

0.1299 

18 

1.1857 

0.1200 

1.4324 

0.1387 

1.4433 

0.1316 

20 

1.2993 

0.1349 

1.5930 

0.1357 

1.6206 

0.1321 

22 

1.4153 

0.1519 

1.7362 

0.1352 

1.7782 

0.1331 

24 

1.5184 

0.1724 

1.8556 

0.1420 

1.9255 

0.1233 

26 

1.6256 

0.2134 

1.9964 

0.1477 

2.0803 

0.1239 

28 

1.7611 

0.2472 

2.1374 

0.1661 

2.2392 

0.1245 

30 

1.9085 

0.2647 

2.3062 

0.1804 

2.4106 

0.1138 

32 

2.0432 

0.2823 

2.4689 

0.1857 

2.5652 

0.1114 

36 

2.3248 

0.3322 

2.7819 

0.2007 

2.8673 

0.1097 

40 

2.5423 

0.3548 

3.0143 

0.1895 

3.1032 

0.1094 

44 

2.7610 

0.3824 

3.2767 

0.1971 

3.3486 

0.1066 

48 

3.0323 

0.3695 

3.5661 

0.1517 

3.6141 

0.0868 

52 

3.3003 

0.3491 

3.7929 

0.1410 

3.8302 

0.0754 

56 

3.4609 

0.3552 

3.9723 

0.1402 

3.9991 

0.0715 

60 

3.6057 

0.3740 

4.1292 

0.1368 

4.1659 

0.0554 

64 

3.8199 

0.3617 

4.3411 

0.1266 

4.3751 

0.0567 

ee 

3.9793 

0.3285 

4.4797 

0.0799 

4.4914 

0.0466 

72 

4.1334 

0.3130 

4.5732 

0.0683 

4.5846 

0.0220 

76 

4.2055 

0.2983 

4.6705 

0.0544 

4.6683 

0.0201 

80 

4.3326 

0.2363 

4.7553 

0.0280 

4.7447 

0.0160 

84 

4.3651 

0.1706 

4.8032 

0.0331 

4.7879 

0.0131 

88 

4.3221 

0.1282 

4.8065 

0.0269 

4.7889 

0.0103 

92 

4.2636 

0.0809 

4.8096 

0.0151 

4.7906 

0.0084 

96 

4.2407 

0.0414 

4.8108 

0.0134 

4.7921 

0.0101 

100 

4.2050 

0.0271 

4.7825 

0.0208 

4.7644 

0.0213 

104 

4.1098 

0.0125 

4.7245 

0.0027 

4.7086 

0.0076 

108 

4.0408 

0.0156 

4.6734 

0.0181 

4.6590 

0.0173 

112 

3.9584 

0.0033 

4.5935 

0.0166 

4.5801 

0.0153 

116 

3.8013 

0.0171 

4.4415 

0.0000 

4.4261 

0.0064 

120 

3.6538 

0.0179 

4.2930 

0.0190 

4.2880 

0.0252 

124 

3.5311 

0.0000 

4.1414 

0.0171 

4.1327 

0.0194 

126 

3.3465 

0.0207 

3.9817 

0.0034 

3.9691 

0.0103 

132 

3.1395 

0.0173 

3.7988 

0.0033 

3.7882 

0.0116 

136 

2.9443 

0.0099 

3.5836 

0.0103 

3.5822 

0.0163 

140 

2.6872 

0.0244 

3.3488 

0.0235 

3.3680 

0.0207 

144 

2.4137 

0.0132 

3.0613 

0.0114 

3.0937 

0.0180 

148 

2.1102 

0.0105 

2.7826 

0.0101 

2.8065 

0.0135 

152 

1.8340 

0.0189 

2.5215 

0.0259 

2.5389 

0.0040 


6 






r/R * 0.928 

r/R * 0.861 

r/R = 0.728 

e 

0 

lT 

m 

u 

U’ 

u 

u* 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

156 

1.5473 

0.0100 

2.1959 

0.0075 

2.2465 

0.0198 

160 

1.2105 

0.0094 

1.8338 

0.0104 

1.8983 

0.0110 

164 

0.6560 

0.0061 

1.4620 

0.0009 

1.5581 

0.0030 

166 

0.5059 

0.0100 

1.0884 

0.0032 

1.2130 

0.0094 

172 

0.1423 

0.0048 

0.7223 

0.0018 

0.6666 

0.0082 

176 

0.0031 

0.0008 

0.2353 

0.0099 

0.4639 

0.0078 

180 

0.0228 

0.0019 

0.0020 

0.0008 

0.0295 

0.0027 




SPRE 


S/d = 0.33 



r/R = 0.594 

r/R = 0.461 

r/R * 0.328 

6 

0 

u’ 

0 

U* 

0 

U* 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

4 

0.0536 

0.0773 

0.0360 

0.0568 

0.0199 

0.0387 

8 

0.3660 

0.1685 

0.2841 

0.1526 

0.2486 

0.1416 

12 

0.8018 

0.1317 

0.7402 

0.1255 

0.6919 

0.1225 

14 

1.0091 

0.1256 

0.9506 

0.1249 

0.8937 

0.1031 

16 

1.2106 

0.1319 

1.1448 

0.1212 

1.1083 

0.1165 

18 

1.4118 

0.1296 

1.3646 

0.1337 

1.3288 

0.1394 

20 

1.5987 

0.1307 

1.5587 

0.1342 

1.5526 

0.1432 

22 

1.7724 

0.1376 

1.7315 

0.1339 

1.7434 

0.1352 

24 

1.9308 

0.1363 

1.9090 

0.1348 

1.9112 

0.1382 

26 

2.0906 

0.1272 

2.0599 

0.1388 

2.0640 

0.1400 

28 

2.2451 

0.1311 

2.2385 

0.1387 

2.2378 

0.1461 

30 

2.4241 

0.1295 

2.4150 

0.1164 

2.4201 

0.1424 

32 

2.5848 

0.1180 

2.5801 

0.1210 

2.5780 

0.1347 

36 

2.8912 

0.1164 

2.8758 

0.1239 

2.8775 

0.1310 

40 

3.1227 

0.1086 

3.0961 

0.1212 

3.0999 

0.1165 

44 

3.3684 

0.1032 

3.3487 

0.1098 

3.3514 

0.1199 

48 

3.6343 

0.0892 

3.5965 

0.0922 

3.5977 

0.0944 

52 

3.8378 

0.0803 

3.7947 

0.0865 

3.7998 

0.0930 

56 

4.0079 

0.0706 

3.9623 

0.0719 

3.9623 

0.0874 

60 

4.1622 

0.0658 

4.1259 

0.0697 

4.1176 

0.0667 

64 

4.3672 

0.0580 

4.3343 

0.0607 

4.3144 

0.0662 

68 

4.4824 

0.0432 

4.4454 

0.0527 

4.4337 

0.0472 

72 

4.5884 

0.0246 

4.5372 

0.0240 

4.5348 

0.0337 

76 

4.6681 

0.0207 

4.6246 

0.0208 

4.6137 

0.0304 

80 

4.7408 

0.0207 

4.6954 

0.0124 

4.6823 

0.0175 

64 

4.7817 

0.0208 

4.7342 

0.0148 

4.7182 

0.0131 

68 

4.7830 

0.0205 

4.7340 

0.0136 

4.7183 

0.0129 

92 

4.7917 

0.0157 

4.7393 

0.0100 

4.7226 

0.0172 


7 




r/R = 0.594 

r/R = 0.461 

r/R « 0.328 

e 

u 

u’ 

m 

u 

u’ 

0 

U’ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

96 

4.7951 

0.0116 

4.7413 

0.0131 

4.7267 

0.0196 

100 

4.7581 

0.0067 

4.7094 

0.0194 

4.7114 

0.0119 

104 

4.7155 

0.0032 

4.6562 

0.0037 

4.6653 

0.0171 

108 

4.6379 

0.0215 

4.6053 

0.0187 

4.5631 

0.0189 

112 

4.5643 

0.0185 

4.5281 

0.0151 

4.5033 

0.0182 

116 

4.4332 

0.0000 

4.3768 

0.0053 

4.3927 

0.0040 

120 

4.2783 

0.0091 

4.2358 

0.0237 

4.2283 

0.0172 

124 

4.1266 

0.0109 

4.0826 

0.0185 

4.0781 

0.0155 

128 

3.9740 

0.0029 

3.9238 

0.0106 

3.9364 

0.0041 

132 

3.7916 

0.0033 

3.7440 

0.0107 

3.7535 

0.0091 

136 

3.5788 

0.0092 

3.5383 

0.0157 

3.5339 

0.0167 

140 

3.3559 

0.0217 

3.3228 

0.0207 

3.3021 

0.0233 

144 

3.0817 

0.0174 

3.0532 

0.0182 

3.0333 

0.0172 

148 

2.8046 

0.0086 

2.7733 

0.0151 

2.7696 

0.0131 

152 

2.5438 

0.0000 

2.5056 

0.0000 

2.5167 

0.0026 

156 

2.2304 

0.0164 

2.2211 

0.0196 

2.1986 

0.0121 

160 

1.8978 

0.0050 

1.8746 

0.0117 

1.8753 

0.0045 

164 

1 . 5613 

0.0021 

1.5343 

0.0000 

1.5418 

0.0038 

168 

1.2106 

0.0058 

1.1973 

0.0089 

1.1952 

0.0067 

172 

0.8641 

0.0053 

0.8620 

0.0094 

0.8552 

0.0080 

176 

0.4648 

0.0087 

0.4546 

0.0081 

0.4560 

0.0073 

180 

0.0341 

0.0036 

0.0354 

0.0030 

0.0362 

0.0032 




SPRE 


s/d = 0.33 


r/R = 0.194 

r/R = 0.006 

e 

0 

u* 

0 

u' 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

4 

0.0205 

0.0365 

0.0241 

0.0486 

8 

0.2157 

0.1299 

0.2084 

0.1402 

12 

0.6604 

0.1171 

0.6475 

0.1280 

14 

0.8715 

0.1041 

0.8665 

0.1103 

16 

1.0866 

0.1120 

1.0795 

0.1173 

18 

1.3080 

0.1286 

1.3149 

0.1249 

20 

1.5347 

0.1388 

1.5472 

0.1336 

22 

1.7324 

0.1372 

1.7456 

0.1431 

24 

1.9053 

0.1491 

1.9121 

0.1418 

26 

2.0707 

0.1399 

2.0792 

0.1377 

28 

2.2340 

0.1530 

2.2517 

0.1468 

30 

2.4150 

0.1435 

2.4257 

0.1474 

32 

2.5871 

0.1345 

2.5843 

0.1290 

36 

2.8926 

0.1234 

2.8915 

0.1221 


8 



r/R * 0.006 


r/R* 0.194 


6 

0 

u’ 

0 

u* 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

40 

3.1142 

0.1231 

3.1064 

0.1201 

44 

3.3570 

0.1179 

3.3511 

0.1178 

48 

3.5990 

0.1116 

3.6026 

0.1034 

52 

3.8103 

0.0989 

3.8128 

0.0970 

56 

3.9553 

0.0886 

3.9673 

0.0873 

60 

4.1152 

0.0754 

4.1305 

0.0802 

64 

4.3148 

0.0662 

4.3202 

0.0659 

68 

4.4303 

0.0483 

4.4401 

0.0605 

72 

4.5268 

0.0379 

4.5225 

0.0372 

76 

4.6109 

0.0292 

4.6138 

0.0213 

80 

4.6819 

0.0173 

4.6817 

0.0184 

84 

4.7153 

0.0085 

4.7248 

0.0198 

88 

4.7150 

0.0072 

4.7225 

0.0190 

92 

4.7192 

0.0140 

4.7309 

0.0209 

96 

4.7260 

0.0192 

4.7356 

0.0209 

100 

4.7120 

0.0088 

4.7083 

0.0125 

104 

4.6635 

0.0176 

4.6398 

0.0175 

108 

4.5630 

0.0188 

4.5897 

0.0052 

112 

4.5045 

0.0167 

4.5097 

0.0018 

116 

4.3923 

0.0000 

4.3613 

0.0171 

120 

4.2272 

0.0169 

4.2501 

0.0279 

124 

4.0786 

0.0144 

4.0772 

0.0155 

128 

3.9361 

0.0000 

3.9130 

0.0210 

132 

3.7530 

0.0083 

3.7358 

0.0181 

136 

3.5336 

0.0163 

3.5381 

0.0197 

140 

3.3027 

0.0220 

3.3222 

0.0192 

144 

3.0339 

0.0163 

3.0489 

0.0079 

148 

2.7693 

0.0130 

2.7782 

0.0198 

152 

2.5164 

0.0000 

2.4935 

0.0101 

156 

2.1977 

0.0108 

2.2200 

0.0062 

160 

1.8747 

0.0026 

1.8731 

0.0090 

164 

1.5412 

0.0042 

1.5266 

0.0083 

168 

1.1943 

0.0061 

1.1944 

0.0025 

172 

0.8541 

0.0073 

0.8655 

0.0017 

176 

0.4552 

0.0068 

0.4636 

0.0090 

180 

0.0371 

0.0027 

0.0371 

0.0030 
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SPRE 


s/d ■ 0.33 


e 

u m 

deg. 

m/sec 

2 

0.0740 

4 

0.1416 

6 

0.2622 

8 

0.4277 

10 

0.6108 

12 

0.7978 

14 

0.9845 

16 

1.1653 

• 18 

1.3450 

20 

1.5180 

22 

1.6693 

24 

1.8101 

26 

1.9557 

28 

2.1193 

30 

2.3029 

32 

2.4641 

34 

2.6323 

36 

2.7818 

38 

2.9018 

40 

3.0013 

42 

3.1438 

44 

3.2800 

46 

3.4149 

48 

3.5546 

50 

3.7027 

52 

3.7859 

54 

3.8752 

56 

3.9519 

58 

4.0422 

60 

4.1301 

62 

4.2519 

64 

4.3690 

66 

4.4419 

68 

4.5087 

70 

4.6048 

72 

4.6516 

74 

4.6792 

76 

4.7371 

76 

4.7829 

80 

4.8121 

82 

4.8371 

84 

4.8478 

66 

4.8395 

88 

4.8248 


6 

u m 

deg. 

m/sec 

90 

4.8076 

92 

4.7992 

94 

4.7978 

96 

4.7884 

98 

4.7725 

100 

4.7460 

102 

4.7172 

104 

4.6798 

106 

4.6412 

108 

4 . 5997 

110 

4.5330 

112 

4.4992 

114 

4.4107 

116 

4.3390 

118 

4.2788 

120 

4.1857 

122 

4.1142 

124 

4.0183 

126 

3.9408 

128 
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Figure 1 : Ensemble-averaged velocity at s/d * 0.33 
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Figure 2: Streamwise velocity fluctuation at e/d * 0.33 
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Figure. 3: Streamwise turbulence intensity, u’ / u , at s/d = 0.33 
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Figure 4: Ensemble-averaged velocity at s/d * 16 
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Figure 5: Streamwise velocity fluctuation at s/d = 16 
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Figure 6: Streamwise turbulence intensity, u’ / u , at s/d * 16 

Note : The peaks appear lower than the actual data due to smoothing by the plotting 
package. The peak turbulence intensity is 1 .02, at 158° for r/R « 0.983. 
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2.7073 

0.1473 

2.6776 

0.1480 

2.6813 

0.1536 

2.6920 

0.1806 

2.7545 

0.3238 

2.8287 

0.4909 

3.0642 

0.7348 

3.2940 

0.8319 

3.5876 

0.7432 

3.7206 

0.6784 

3.8405 

0.6174 

3.8389 

0.6551 

3.8441 

0.6419 

3.7617 

0.6016 

3.6617 

0.6342 

3.5856 

0.6383 

3.4689 

0.6414 

3.3386 

0.6138 

3.1638 

0.5978 

3.0381 

0.5997 

2.8437 

0.5838 

2.6191 

0.5579 

2.3508 

0.5599 

1.9875 

0.5721 

1.6988 

0.5895 

1.4102 

0.5920 

1.2655 

0.5765 

1.0895 

0.5451 

0.8717 

0.4540 

0.6221 

0.3879 

0.3868 

0.3152 

0.1451 

0.1868 

0.0407 

0.0597 
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SPRE 


s/d* 30 




r/R = 0.863 

r/R = 0.730 

r/R * 0.597 

e 

0 

u’ 

0 

u' 

0 

U* 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

4 

0.1897 

0.1758 

0.1271 

0.1477 

0.1026 

0.1369 

8 

0.5612 

0.1980 

0.4766 

0.2026 

0.4384 

0.2035 

12 

0.9225 

0.1467 

0.8797 

0.1478 

0.8386 

0.1415 

16 

1.2787 

0.1312 

1.2826 

0.1306 

1.2404 

0.1306 

20 

1.6237 

0.1134 

1.6631 

0.1207 

1.6287 

0.1225 

24 

1.8994 

0.1110 

1.9963 

0.1017 

1.9563 

0.1025 

28 

2.1925 

0.0992 

2.3145 

0.0940 

2.2943 

0.0945 

32 

2.4811 

0.1054 

2.6627 

0.0801 

2.6494 

0.0830 

36 

2.7599 

0.1138 

2.9949 

0.0639 

2.9966 

0.0743 

40 

2.9580 

0.1309 

3.2665 

0.0789 

3.2854 

0.0763 

44 

3.1574 

0.1445 

3.5312 

0.0661 

3.5637 

0.0618 

48 

3.3837 

0.1595 

3.8185 

0.0877 

3.8749 

0.0744 

52 

3.5440 

0.1626 

4.0665 

0.0845 

4.1332 

0.0648 

56 

3.6648 

0.1599 

4.2638 

0.0978 

4.3637 

0.0589 

60 

3.7640 

0.1852 

4.4548 

0.1104 

4.5771 

0.0519 

64 

3.8815 

0.1883 

4.6565 

0.0960 

4.7909 

0.0634 

68 

3.9599 

0.1934 

4.8231 

0.1309 

5.0007 

0.0537 

72 

3.9941 

0.2028 

4.9495 

0.1237 

5.1572 

0.0689 

76 

4.0167 

0.2120 

5.0540 

0.1503 

5.3080 

0.0796 

78 

4.0474 

0.2348 

5.1188 

0.1961 

5.3410 

0.1123 

80 

4.1055 

0.3165 

5.1509 

0.2516 

5.3593 

0.1681 

82 

4.1659 

0.4514 

5.1571 

0.3271 

5.3713 

0.2596 

84 

4.2555 

0.5667 

5.0901 

0.4380 

5.3757 

0.3253 

86 

4.2060 

0.6791 

4.9869 

0.5268 

5.2971 

0.4407 

88 

4 . 1898 

0.6417 

4.7795 

0.5685 

5.1334 

0.4996 

90 

4.1323 

0.6144 

4.6516 

0.5322 

5.0623 

0.5127 

92 

4.2353 

0.5335 

4.6917 

0.4916 

4.9664 

0.4429 

94 

4.2621 

0.5185 

4.7140 

0.4528 

5.0026 

0.4524 

96 

4.2915 

0.5127 

4.7246 

0.4272 

5.0379 

0.4072 

100 

4.2946 

0.5104 

4.7360 

0.4256 

5.0424 

0.4070 

104 

4.2471 

0.5052 

4.6694 

0.4629 

4.9469 

0.3999 

108 

4.1281 

0.5151 

4.5519 

0.4556 

4.8433 

0.4081 

112 

4.0263 

0.5221 

4.4635 

0.4406 

4.7614 

0.4292 

116 

3.9331 

0.5159 

4.3388 

0.4337 

4.6459 

0.4107 

120 

3.8360 

0.5048 

4.2186 

0.4224 

4.5371 

0.3885 

124 

3.6852 

0.4614 

4.0709 

0.4149 

4.3646 

0.3707 

128 

3.4594 

0.4555 

3.8938 

0.4102 

4.2170 

0.3413 

132 

3.3623 

0.4358 

3.7554 

0.3608 

4.0335 

0.3542 

136 

3.0952 

0.4600 

3.5720 

0.3755 

3.8815 

0.3448 

140 

2.8697 

0.4463 

3.3432 

0.3992 

3.7086 

0.3261 

144 

2.5185 

0.4571 

3.0977 

0.4084 

3.4918 

0.3349 

148 

2.2551 

0.4992 

2.8749 

0.3936 

3.2381 

0.3486 

152 

1.9521 

0.4861 

2.5834 

0.3949 

2.8854 

0.3934 
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r/R * 0.863 r/R * 0.730 r/R * 0.597 


e 

0 

u* 

Cl 

U' 

u 

u* 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

156 

1.7407 

0.4982 

.2.2772 

0.4245 

2.5666 

0.4031 

160 

1.5122 

0.4608 

1.9568 

0.4098 

2.2493 

0.3629 

164 

1.2595 

0.4256 

1.5218 

0.3567 

1.8647 

0.3313 

168 

0.9339 

0.3594 

1.1947 

0.3620 

1.4303 

0.3310 

172 

0.6254 

0.3205 

0.6478 

0.3237 

1.0158 

0.3207 

176 

0.3014 

0.2606 

0.4738 

0.2886 

0.6024 

0.2804 

160 

0.0743 

0.1096 

0.1391 

0.1576 

0.1890 

0.1798 



SPRE 

r/R = 0.463 

S/d « 30 
r/R = 0.330 

r/R = 0.197 

6 

0 

u' 

0 

u* 

0 

u’ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

4 

0.0971 

0.1316 

0.0732 

0.1066 

0.0687 

0.1002 

8 

0.4091 

0.2016 

0.3531 

0.1962 

0.3376 

0.1789 

12 

0.8217 

0.1481 

0.7710 

0.1438 

0.7600 

0.1406 

16 

1.2122 

0.1318 

1.1743 

0.1329 

1.1562 

0.1275 

20 

1.5890 

0.1211 

1.5518 

0.1171 

1.5440 

0.1145 

24 

1.9259 

0.1094 

1.8953 

0.1008 

1.8825 

0.0975 

28 

2.2617 

0.1001 

2.2262 

0.0946 

2.2219 

0.0894 

32 

2.6275 

0.0880 

2.5827 

0.0785 

2.5886 

0.0781 

36 

2.9802 

0.0821 

2.9439 

0.0832 

2.9378 

0.0714 

40 

3.2799 

0.0839 

3.2453 

0.0695 

3.2476 

0.0713 

44 

3.5592 

0.0671 

3.5282 

0.0619 

3.5302 

0.0564 

48 

3.8774 

0.0735 

3.8452 

0.0715 

3.8505 

0.0680 

52 

4.1476 

0.0676 

4.1218 

0.0586 

4.1266 

0.0557 

56 

4.3834 

0.0490 

4.3662 

0.0508 

4.3699 

0.0430 

60 

4.6030 

0.0543 

4.5780 

0.0519 

4.5938 

0.0464 

64 

4.8273 

0.0519 

4.8073 

0.0519 

4.8239 

0.0432 

68 

5.0343 

0.0471 

5.0181 

0.0367 

5.0317 

0.0384 

72 

5.2086 

0.0412 

5.1995 

0.0393 

5.2076 

0.0271 

76 

5.3488 

0.0594 

5.3285 

0.0635 

5.3346 

0.0602 

78 

5.3835 

0.0836 

5.3719 

0.0718 

5.3848 

0.0701 

80 

5.4358 

0.1228 

5.4203 

0.1020 

5.4381 

0.0933 

82 

5.4636 

0.1797 

5.4855 

0.1430 

5.5006 

0.1362 

84 

5.5027 

0.2541 

5.5259 

0.2004 

5.5880 

0.1829 

66 

5.5492 

0.3527 

5.6553 

0.2932 

5.7475 

0.2735 

68 

5.4658 

0.4258 

5.7252 

0.3503 

5.8348 

0.3277 

90 

5.3750 

0.4176 

5.5189 

0.3882 

5.7121 

0.3678 

92 

5.2904 

0.3866 

5.4458 

0.3606 

5.5736 

0.3235 
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r/R = 0.463 r/R * 0.330 r/R * 0.1 97 

6 u u* u u’ u u’ 

deg. m/sec m/sec m/sec m/sec m/sec m/sec 

94 5.2671 0.4079 5.4283 0.3132 5.5174 0.2973 

96 5.3012 0.3708 5.4024 0.3191 5.4866 0.2845 

100 5.2760 0.3768 5.3812 0.3190 5.4673 0.2997 

104 5.1828 0.3757 5.3070 0.3541 5.4086 0.2862 

108 5.0290 0.3864 5.1944 0.3462 5.2862 .0.3070 

112 4.9625 0.3895 5.1068 0.3668 5.1984 0.3145 

116 4.8367 0.3923 5.0279 0.3377 5.1315 0.3147 

120 4.7924 0.3407 4.9284 0.3276 5.0588 0.2925 

124 4.6349 0.3370 4.7958 0.2837 4.8917 0.2485 

128 4.4514 0.3171 4.6152 0.2476 4.6810 0.2168 

132 4.3041 0.2808 4.3995 0.2225 4.4778 0.1800 

136 4.0874 0.2718 4.1884 0.2123 4.2553 0.1516 

140 3.9011 0.2420 3.9631 0.1577 3.9988 0.1468 

144 3.6859 0.2470 3.7222 0.2011 3.7647 0.1594 

148 3.3989 0.2934 3.4945 0.1822 3.5291 0.1844 

152 3.1349 0.2861 3.2133 0.2306 3.2556 0.1904 

156 2.8028 0.3192 2.8927 0.2416 2.9355 0.2186 

160 2.4692 0.3168 2.5394 0.2526 2.5917 0.2230 

164 2.0728 0.2965 2.1477 0.2668 2.1986 0.2524 

168 1.6280 0.2919 1.7119 0.2847 1.7543 0.2438 

172 1.1711 0.3228 1.2445 0.2866 1.2853 0.2922 

176 0.7309 0.3033 0.7913 0.2683 0.8241 0.2693 

180 0.2771 0.2263 0.3059 0.2227 0.3267 0.2293 


SPRE s/d = 30 



r/R = 0.004 

6 

U 

U’ 

deg. 

m/sec 

m/sec 

4 

0.0483 

0.0823 

8 

0.2880 

0.1821 

12 

0.7132 

0.1397 

16 

1.1214 

0.1212 

20 

1.5222 

0.1050 

24 

1.8684 

0.0920 

28 

2.2172 

0.0854 

32 

2.5743 

0.0757 

36 

2.9413 

0.0733 

40 

3.2357 

0.0684 

44 

3.5223 

0.0591 


30 




r/R * 0.004 

e 

u 

u* 

deg. 

m/sec 

m/sec 

48 

3.6386 

0.0697 

52 

4.1161 

0.0579 

56 

4.3661 

0.0433 

60 

4.5912 

0.0489 

64 

4.8221 

0.0421 

68 

5.0350 

0.0436 

72 

5.2086 

0.0380 

76 

5.3317 

0.0587 

78 

5.3824 

0.0699 

80 

5.4434 

0.0999 

82 

5.5189 

0.1243 

84 

5.6274 

0.1967 

86 

5.8429 

0.2721 

88 

5.9452 

0.2875 

90 

5.7876 

0.3223 

92 

5.6441 

0.2749 

94 

5.5613 

0.2563 

96 

5.5436 

0.2658 

100 

5.4992 

0.2680 

104 

5.4438 

0.2642 

108 

5.3695 

0.2581 

112 

5.2783 

0.2748 

116 

5.2111 

0.2605 

120 

5.0778 

0.2645 

124 

4.9092 

0.2337 

128 

4.6908 

0.2052 

132 

4.4353 

0.1898 

136 

4.1803 

0.2067 

140 

3.9119 

0.2114 

144 

3.6736 

0.2293 

148 

3.3997 

0.2214 

152 

3.0768 

0.2488 

156 

2.7157 

0.2850 

160 

2.4331 

0.2750 

164 

2.0180 

0.2819 

168 

1.5719 

0.2865 

172 

1.1803 

0.2927 

176 

0.7590 

0.2601 

180 

0.2964 

0.2264 
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SPRE 


s/d = 30 


*9- 

u m 

m/sec 

2 

0.0650 

4 

0.1289 

6 

0.2573 

8 

0.4300 

10 

0.6140 

12 

0.7684 

14 

0.9614 

16 

1.1425 

18 

1.3179 

20 

1.4791 

22 

1.6229 

24 

1.7654 

26 

1.9026 

28 

2.0498 

30 

2.2011 

32 

2.3539 

34 

2.5058 

36 

2.6461 

38 

2.7681 

40 

2.8776 

42 

2.9878 

44 

3.1017 

46 

3.2278 

48 

3.3548 

50 

3.4646 

52 

3.5617 

54 

3.6501 

56 

3.7302 

58 

3.8031 

60 

3.8860 

62 

3.9661 

64 

4.0506 

66 

4.1306 

68 

4.1919 

70 

4.2457 

72 

4.2915 

74 

4.3252 

76 

4.3718 

78 

4.4064 

80 

4.4411 

82 

4.4743 

84 

4.5037 

86 

4.5366 

88 

4.5397 


6 Um 

deg. m/sec 

90 4.5178 

92 4.5232 

94 4.5396 

96 4.5506 

98 4.5396 

100 4.5480 

102 4.5195 

104 4.4788 

106 4.4218 

108 4.3683 

110 4.3209 

112 4.2819 

114 4.2177 

116 4.1812 

118 4.1383 

120 4.0805 

122 4.0074 

124 3.9339 

126 3.8431 

128 3.7566 

130 3.6666 

132 3.5998 

134 3.4890 

136 3.3942 

138 3.2847 

140 3.1760 

142 3.0565 

144 2.9107 

146 2.7914 

148 2.6639 

150 2.5169 

152 2.3798 

154 2.2533 

156 2.1192 

158 1.9760 

160 1.8491 

162 1.6835 

164 1.5165 

166 1.3386 

168 1.1669 

170 0.9951 

172 0.8192 

174 0.6515 

176 0.4711 


e u m 

deg. m/sec 

178 0.3045 

180 0.1588 
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Figure 7: Ensemble-averaged velocity at s/d * 30 
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Figure 8: Streamwise velocity fluctuation at s/d » 30 

Centerline view 
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SPRE 


S/d = 44 


r/R» 0.999 r/R* 0.998 r/R* 0.995 

© u u’ 0 u' 0 u* 

deg. m/sec m/sec m/sec m/sec m/sec m/sec 

4 0.0679 0.0169 0.0394 0.0136 0.0181 0.0168 

8 0.0885 0.0151 0.0598 0.0170 0.0410 0.0201 

12 0.1145 0.0199 0.0935 0.0230 0.0848 0.0377 

16 0.1376 0.0148 0.1130 0.0189 0.1150 0.0305 

20 0.1429 0.0135 0.1223 0.0151 0.1232 0.0228 

24 0.1522 0.0122 0.1308 0.0146 0.1389 0.0224 

28 0.1633 0.0091 0.1450 0.0148 0.1604 0.0194 

32 0.1749 0.0109 0.1647 0.0118 0.1901 0.0219 

36 0.1875 0.0106 0.1750 0.0132 0.2098 0.0217 

40 0.1899 0.0102 0.1797 0.0131 0.2172 0.0213 

44 0.1968 0.0099 0.1898 0.0134 0.2318 0.0195 

48 0.2150 0.0122 0.2106 0.0153 0.2637 0.0235 

52 0.2199 0.0114 0.2178 0.0137 0.2747 0.0221 

56 0.2194 0.0108 0.2156 0.0140 0.2697 0.0227 

60 0.2229 0.0097 0.2211 0.0123 0.2809 0.0218 

64 0.2305 0.0067 0.2301 0.0098 0.2999 0.0199 

68 0.2315 0.0064 0.2312 0.0091 0.3011 0.0190 

72 0.2255 0.0081 0.2235 0.0100 0.2840 0.0196 

76 0.2247 0.0087 0.2214 0.0107 0.2783 0.0194 

80 0.2252 0.0080 0.2243 0.0098 0.2847 0.0174 

84 0.2215 0.0091 0.2164 0.0116 0.2694 0.0188 

88 0.2060 0.0105 0.1994 0.0106 0.2449 0.0149 

92 0.1986 0.0076 0.1910 0.0084 0.2327 0.0124 

96 0.1953 0.0070 0.1869 0.0096 0.2268 0.0132 

98 0.1924 0.0062 0.1825 0.0103 0.2211 0.0149 

100 0.1887 0.0085 0.1766 0.0111 0.2126 0.0186 

102 0.1913 0.0491 0.1826 0.0564 0.2112 0.0509 

104 0.2424 0.1590 0.2549 0.1910 0.3006 0.2537 

106 0.3962 0.2483 0.5145 0.3567 0.6439 0.4667 

108 0.5324 0.2237 0.6467 0.2803 0.8915 0.4358 

110 0.5551 0.1949 0.6454 0.2625 0.8907 0.3570 

112 0.5107 0.1917 0.5990 0.2353 0.8210 0.3077 

114 0.5041 0.1830 0.5345 0.2224 0.7654 0.3078 

116 0.4791 0.1796 0.5499 0.2339 0.7430 0.2945 

120 0.4520 0.1747 0.5205 0.2097 0.7248 0.3055 

124 0.4275 0.1641 0.4888 0.2135 0.6820 0.2944 

128 0.3805 0.1546 0.4320 0.1871 0.6063 0.2814 

132 0.3639 0.1451 0.3944 0.1796 0.5307 0.2398 

136 0.3162 0.1311 0.3397 0.1647 0.4722 0.2415 

140 0.2832 0.1135 0.2922 0.1453 0.4088 0.2155 

144 0.2388 0.0828 0.2479 0.1210 0.3345 0.1945 

148 0.2010 0.0707 0.2067 0.1023 0.2408 0.1476 

152 0.1675 0.0573 0.1611 0.0751 0.1847 0.1256 
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r/R * 0.999 r/R * 0.998 

0 0 u’ u u* 

deg. m/sec m/sec m/sec m/sec 

156 0.1508 0.0517 0.1234 0.0626 

160 0.1187 0.0351 0.0920 0.0403 

164 0.0926 0.0241 0.0641 0.0279 

168 0.0754 0.0183 0.0458 0.0166 

172 0.0639 0.0105 0.0361 0.0078 

176 0.0613 0.0070 0.0341 0.0050 

180 0.0669 0.0080 0.0393 0.0064 


r/R = 0.995 

u u' 

m/sec m/sec 

0.1241 0.0885 

0.0826 0.0630 

0.0459 0.0353 

0.0257 0.0205 

0.0141 0.0101 

0.0112 0.0052 

0.0161 0.0061 


SPRE S/d = 44 


r/R = 0.993 r/R = 0.990 r/R = 0.983 

6 u u’ u iT Ci u* 

deg. m/sec m/sec m/sec m/sec m/sec m/sec 

4 0.0120 0.0170 0.0132 0.0252 0.0170 0.0425 

8 0.0372 0.0268 0.0401 0.0291 0.0902 0.0840 

12 0.0976 0.0508 0.1057 0.0490 0.2657 0.1313 

16 0.1435 0.0434 0.1635 0.0569 0.3847 0.1155 

20 0.1611 0.0354 0.1774 0.0447 0.4358 0.1021 

24 0 ! 1797 0.0353 0.1999 0.0394 0.5069 0.0943 

28 0.2097 0.0352 0.2362 0.0381 0.5867 0.0807 

32 0.2575 0.0341 0.3016 0.0404 0.6783 0.0610 

36 0.2907 0.0362 0.3309 0.0382 0.7215 0.0578 

40 0.3022 0.0335 0.3466 0.0372 0.7398 0.0523 

44 0.3258 0.0331 0.3750 0.0375 0.7732 0.0500 

48 0.3697 0.0318 0.4249 0.0382 0.8384 0.0490 

52 0.3857 0.0317 0.4451 0.0396 0.8674 0.0491 

56 0.3817 0.0323 0.4405 0.0349 0.8576 0.0479 

60 0.3962 0.0323 0.4587 0.0373 0.8767 0.0468 

64 0.4215 0.0312 0.4950 0.0415 0.9100 0.0475 

68 0.4265 0.0308 0.4945 0.0401 0.9155 0.0456 

72 0.4012 0.0325 0.4687 0.0369 0.8858 0.0435 

76 0.3890 0.0303 0.4599 0.0333 0.8731 0.0404 

80 0.3976 0.0287 0.4722 0.0344 0.8859 0.0392 

84 0.3784 0.0252 0.4448 0.0304 0.8613 0.0383 

88 0.3487 0.0213 0.4092 0.0260 0.8163 0.0358 

92 0.3275 0.0221 0.3843 0.0291 0.7852 0.0350 

96 0.3155 0.0217 0.3690 0.0297 0.7663 0.0361 

98 0.3052 0.0218 0.3550 0.0287 0.7513 0.0379 

100 0.2944 0.0263 0.3416 0.0316 0.7327 0.0419 

102 0.2979 0.0887 0.3458 0.1358 0.7365 0.1261 

104 0.4547 0.4180 0.4528 0.3597 0.9042 0.4893 



38 



r/R ■ 0.993 r/R = 0.990 r/R ■ 0.983 


e 

• 

U 

U’ 

U 

u’ 

m 

u 

U’ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

106 

0.8657 

0.6026 

0.9176 

0.6649 

1.5414 

0.8430 

108 

1.1421 

0.5167 

1.2536 

0.5847 

2.0079 

0.7134 

110 

1.1625 

0.4379 

1.2336 

0.4619 

1.9946 

0.6403 

112 

1.0661 

0.3901 

1.1672 

0.4382 

1.8954 

0.6097 

114 

0.9992 

0.3930 

1.1289 

0.4413 

1.7707 

0.5622 

116 

0.9804 

0.3759 

1.0503 

0.4384 

1.7904 

0.6326 

120 

0.9366 

0.3824 

1.0411 

0.4056 

1.7114 

0.5993 

124 

0.8601 

0.3752 

0.9290 

0.3785 

1.6133 

0 . 5513 

128 

0.7832 

0.3364 

0.8652 

0.3637 

1.5037 

0.5277 

132 

0.7115 

0.3430 

0.7741 

0.3312 

1.3089 

0.4739 

136 

0.6264 

0.2907 

0.6980 

0.3144 

1.2445 

0.4469 

140 

0.5450 

0.2882 

0.5878 

0.3066 

1.1051 

0.4276 

144 

0.4543 

0.2542 

0.4946 

0.2581 

0.9531 

0.3917 

148 

0.3452 

0.2209 

0.3784 

0.2296 

0.7641 

0.3678 

152 

0.2398 

0.1676 

0.2821 

0.1882 

0.5678 

0.3223 

156 

0.1605 

0.1305 

0.2048 

0.1691 

0.4294 

0.2941 

160 

0.1022 

0.0922 

0.1165 

0.1087 

0.2684 

0.2334 

164 

0.0464 

0.0523 

0.0558 

0.0742 

0.1431 

0.1627 

168 

0.0199 

0.0239 

0.0184 

0.0253 

0.0494 

0.0798 

172 

0.0073 

0.0106 

0.0058 

0.0104 

0.0131 

0.0324 

176 

0.0046 

0.0043 

0.0035 

0.0059 

0.0027 

0.0071 

180 

0.0091 

0.0061 

0.0079 

0.0063 

0.0080 

0.0096 


SPRE S/d = 44 



r/R = 0.977 

r/R = 0.937 

r/R = 0.870 

e 

u 

U* 

0 

u* 

0 

u’ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

4 

0.0324 

0.0662 

0.1517 

0. 1868 

0.1760 

0.2203 

8 

0.1675 

0.1230 

0.5666 

0.2027 

0.6532 

0.2772 

12 

0.4471 

0.1809 

0.9525 

0.2115 

1.1394 

0.2322 

16 

0.6054 

0.1335 

1.1330 

0.1637 

1.3798 

0.1818 

20 

0.6874 

0.0947 

1.3518 

0.1562 

1.7091 

0.1466 

24 

0.7557 

0.0932 

1.5421 

0.1628 

2.0057 

0.1321 

28 

0.8294 

0.0965 

1.6942 

0.1627 

2.2696 

0.1378 

32 

0.9292 

0.0867 

1.6833 

0.1605 

2.5607 

0.1370 

36 

0.9904 

0.0775 

2.0363 

0.1575 

2.8223 

0.1507 

40 

1.0278 

0.0728 

2.1139 

0.1576 

3.0111 

0.1564 

44 

1.0667 

0.0710 

2.2146 

0.1585 

3.2037 

0.1615 

48 

1.1458 

0.0675 

2.3611 

0.1539 

3.4128 

0.1782 

52 

1.1826 

0.0675 

2.4481 

0.1378 

3.5804 

0.1669 
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r/R = 0.977 r/R ■ 0.937 r/R = 0.870 


e 

m 

u 

U’ 

Cl 

u’ 

u 

u’ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

56 

1.1826 

0.0665 

2.4660 

0.1360 

3.6999 

0.1829 

60 

1.2025 

0.0645 

2.4977 

0.1303 

3.8072 

0.1882 

64 

1.2392 

0.0626 

2.5737 

0.1307 

3.9256 

0.1926 

68 

1.2522 

0.0629 

2.6085 

0.1262 

4.0121 

0.1994 

72 

1.2175 

0.0558 

2.5874 

0.1224 

4.0438 

0.1922 

76 

1.2023 

0.0528 

2.5762 

0.1192 

4.0637 

0.1876 

80 

1.2133 

0.0529 

2.5989 

0.1130 

4.1087 

0.1756 

64 

1.1858 

0.0519 

2.5755 

0.1106 

4.1202 

0.1748 

88 

1.1302 

0.0523 

2.4952 

0.1095 

4.0717 

0.1825 

92 

1.0886 

0.0493 

2.4268 

0.1141 

4.0150 

0.1885 

96 

1.0643 

0.0452 

2.3809 

0.1171 

3.9688 

0.2075 

98 

1.0461 

0.0459 

2.3584 

0.1284 

3.9527 

0.2676 

100 

1.0257 

0.0564 

2.3458 

0.1863 

3.9960 

0.3967 

102 

1.0181 

0.1077 

2.4015 

0.4307 

4.0803 

0.5719 

104 

1.2060 

0.5633 

2.5811 

0.6970 

4.0503 

0.7338 

106 

1.8435 

0.9388 

3.0566 

0.8900 

4.0327 

0.7855 

108 

2.4041 

0.8467 

3.4520 

0.7341 

4.1308 

0.6442 

110 

2.5028 

0.6670 

3.6132 

0.6264 

4.1439 

0.5615 

112 

2.4170 

0.6826 

3.5184 

0.6255 

4.1458 

0.4927 

114 

2.3022 

0.6674 

3.5371 

0.6340 

4.0591 

0.5401 

116 

2.2432 

0.6729 

3.4228 

0.6203 

4.0482 

0.5029 

120 

2.2070 

0.6548 

3.2797 

0.6412 

3.8741 

0.5011 

124 

2.0683 

0.6151 

3.1391 

0.6368 

3.7211 

0.4816 

128 

1.9162 

0.5940 

3.0258 

0.5923 

3.5924 

0.4979 

132 

1.7515 

0.5639 

2.8029 

0.5749 

3.3636 

0.4703 

136 

1 . 6410 

0.5497 

2.6442 

0.5516 

3.2182 

0.4544 

140 

1.4515 

0.4973 

2.4764 

0.5440 

2.9711 

0.4452 

144 

1.2762 

0.4863 

2.2044 

0.5283 

2.7366 

0.4145 

148 

1.1000 

0.4286 

1.9766 

0.4827 

2.4576 

0.4157 

152 

0.8741 

0.4065 

1.7075 

0.4639 

2.1639 

0.4141 

156 

0.6715 

0.3726 

1.4717 

0.4135 

1.9133 

0.3663 

160 

0.4760 

0.3132 

1.1796 

0.3852 

1.5824 

0.3563 

164 

0.2585 

0.2523 

0.8549 

0.3689 

1.2611 

0.3266 

168 

0.1268 

0.1635 

0.5624 

0.3275 

0.8801 

0.3096 

172 

0.0297 

0.0592 

0.2632 

0.2537 

0.5481 

0.2928 

176 

0.0062 

0.0135 

0.0595 

0.0968 

0.2069 

0.2039 

160 

0.0172 

0.0197 

0.0401 

0.0524 

0.0316 

0.0524 
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SPRE 


S/d = 44. 


r/R ■ 0.737 r/R = 0.603 r/R * 0.470 


e 

«• 

U 

U* 

U 

U’ 

m 

U 

u‘ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

4 

0.0885 

0.0315 

0.0070 

0.0105 

0.0050 

0.0078 

8 

0.0534 

0.0850 

0.0131 

0.0276 

0.0290 

0.0590 

12 

1.0468 

0.2725 

0.6281 

0.3728 

0.2761 

0.2824 

16 

1.3727 

0.1959 

1.2855 

0.2300 

1.1794 

0.2269 

20 

1.7895 

0.1390 

1.7556 

0.1403 

1.7037 

0.1484 

24 

2.0970 

0.1156 

2.0925 

0.1091 

2.0709 

0.1112 

28 

2.4110 

0.1002 

2.4119 

0.0979 

2.3924 

0.1014 

32 

2.7576 

0.0968 

2.7561 

0.0926 

2.7581 

0.0911 

36 

3.0909 

0.0828 

3.0961 

0.0800 

3.0888 

0.0770 

40 

3.3628 

0.0776 

3.3824 

0.0695 

3.3816 

0.0597 

44 

3.6138 

0.0788 

3.6493 

0.0617 

3.6497 

0.0590 

48 

3.9276 

0.0748 

3.9768 

0.0571 

3.9765 

0.0562 

52 

4.2056 

0.0862 

4.2753 

0.0570 

4.2845 

0.0580 

56 

4.3954 

0.0994 

4.4960 

0.0584 

4.5070 

0.0464 

60 

4.5703 

0.1078 

4.6900 

0.0584 

4.7205 

0.0564 

64 

4.7825 

0.1162 

4.9231 

0.0571 

4.9566 

0.0617 

68 

4.9590 

0.1221 

5.1353 

0.0660 

5.1808 

0.0518 

72 

5.0682 

0.1279 

5.2695 

0.0574 

5.2871 

0.0486 

76 

5.1747 

0.1307 

5.3754 

0.0599 

5.4235 

0.0586 

80 

5.2762 

0.1309 

5.5219 

0.0762 

.5.5754 

0.0346 

84 

5.3544 

0.1390 

5.6261 

0.0587 

5.6841 

0.0574 

88 

5.3583 

0.1445 

5.6593 

0.0688 

5.7430 

0.0447 

92 

5.3583 

0.1598 

5.7072 

0.0823 

5.7922 

0.0484 

96 

5.4148 

0.2008 

5.7574 

0.1389 

5.8401 

0.0994 

98 

5.4177 

0.2614 

5.7388 

0.1927 

5.8261 

0.1308 

100 

5.4058 

0.3432 

5.6761 

0.2335 

5.7786 

0.1877 

102 

5.3163 

0.4190 

5.5796 

0.3126 

5.7355 

0.2545 

104 

5.0815 

0.6030 

5.4226 

0.4548 

5.6615 

0.3645 

106 

4.7672 

0.6295 

5.2393 

0.5362 

5.6126 

0.4604 

108 

4.6493 

0.5425 

5.0045 

0.5013 

5. 3347 

0.4807 

110 

4.6082 

0.4752 

4.8748 

0.4402 

5.1652 

0.3988 

112 

4.5306 

0.4079 

4.8374 

0.4214 

5.0798 

0.3617 

114 

4.4953 

0.4181 

4.7938 

0.3767 

5.0222 

0.3457 

116 

4.4253 

0.3997 

4.7369 

0.3415 

4.9318 

0.3364 

120 

4.3010 

0.4249 

4.5980 

0.3610 

4.8179 

0.3370 

124 

4.1668 

0.4124 

4.4165 

0.3873 

4.6565 

0.3266 

128 

3.9532 

0.3680 

4.2294 

0.3672 

4.4694 

0.3168 

132 

3.7664 

0.3873 

4.0485 

0.3623 

4.2283 

0.3114 

136 

3.5444 

0.3910 

3.8037 

0.3206 

4.0040 

0.3105 

140 

3.3220 

0.3603 

3.5618 

0.3268 

3.7544 

0.3002 

144 

3.0580 

0.3503 

3.2835 

0.3226 

3.4862 

0.2935 

148 

2.7884 

0.3611 

• 2.9972 

0.2989 

3.1943 

0.2607 

152 

2.5277 

0.3232 

2.6753 

0.3002 

2.8322 

0.2802 
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r/R * 0.737 

r/R = 0.603 

r/R = 0.470 

e 

u 

U’ 

m 

u 

U’ 

0 

U’ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

156 

2.1837 

0.3144 

2.3866 

0.2893 

2.5039 

0.2513 

160 

1.8452 

0.3145 

2.0209 

0.2851 

2.1755 

0.2633 

164 

1.4908 

0.2799 

1.6438 

0.2648 

1.7683 

0.2344 

168 

1.1228 

0.2775 

1.2411 

0.2382 

1.3799 

0.2413 

172 

0.7508 

0.2625 

0.8931 

0.2269 

0.9867 

0.2322 

176 

0.3337 

0.2307 

0.4792 

0.2439 

0.5959 

0.2159 

180 

0.0510 

0.0739 

0.1000 

0.1199 

0.1430 

0.1402 




SPRE 


s/d = 44 




r/R = 0.337 

r/R = 0.203 

r/R = 0.003 

e 

0 

u* 

0 

u* 

0 

u* 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

4 

0.0034 

0.0073 

0.0028 

0.0034 

0.0089 

0.0039 

8 

0.0953 

0.0923 

0.1665 

0.0943 

0.0876 

0.0472 

12 

0.3724 

0.2215 

0.6451 

0.1395 

0.6456 

0.0839 

36 

1.1067 

0.2131 

1.1435 

0.1744 

1.1697 

0.1062 

20 

1.6283 

0.1526 

1.6145 

0.1437 

1.6629 

0.1404 

24 

2.0003 

0.1190 

1.9770 

0.1236 

2.0012 

0.1364 

28 

2.3484 

0.0961 

2.3354 

0.1065 

2.3418 

0.1082 

32 

2.7098 

0.0887 

2.7001 

0.0890 

2.7272 

0.0909 

36 

3.0523 

0.0783 

3.0553 

0.0776 

3.0967 

0.0761 

40 

3.3502 

0.0651 

3.3541 

0.0636 

3.3966 

0.0645 

44 

3.6133 

0.0585 

3.6275 

0.0534 

3.6990 

0.0614 

48 

3.9515 

0.0504 

3.9538 

0.0520 

4.0242 

0.0610 

52 

4.2540 

0.0478 

4.2548 

0.0425 

4.3224 

0.0528 

56 

4.4724 

0.0508 

4.4778 

0.0504 

4.5342 

0.0497 

60 

4.6833 

0.0500 

4.6878 . 

0.0479 

4.7682 

0.0399 

64 

4.9177 

0.0494 

4.9197 

0.0463 

5.0148 

0.0474 

68 

5.1360 

0.0543 

5.1507 

0.0549 

5.2096 

0.0450 

72 

5.2591 

0.0318 

5.2648 

0.0378 

5.3599 

0.0532 

76 

5.3855 

0.0352 

5.4019 

.0.0423 

5.5011 

0.0280 

80 

5.5594 

0.0377 

5.5734 

0.0289 

5.6622 

0.0357 

84 

5.6506 

0.0407 

5.6716 

0.0453 

5.7843 

0.0540 

88 

5.7263 

0.0464 

5.7526 

0.0322 

5.8620 

0.0280 

92 

5.7796 

0.0245 

5.7825 

0.0303 

5.8765 

0.0195 

96 

5.8047 

0.0783 

5.8270 

0.0841 

5.8934 

0.0572 

96 

5. 8067 

0.1119 

5.8260 

0.1126 

5.9134 

0.0812 

100 

5.7825 

0.1649 

5.8144 

0.1439 

5.9168 

0.1237 

102 

5.7748 

0.2305 

5.8619 

0.2219 

5.9570 

0.1907 

104 

5.8543 

0.3252 

5.9983 

0.3054 

6.1290 

0.2986 


42 




r/R = 0.337 

r/R = 0.203 

r/R * 0.003 

e 

u 

u' 

0 

iT 

• 

u 

u* 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

m/sec 

106 

5.8227 

0.4172 

6.0069 

0.3782 

6.2211 

0.3483 

108 

5.5471 

0.4213 

5.6966 

0.3846 

5.8968 

0.3501 

110 

5.3145 

0.3324 

5.4396 

0.2910 

5.5977 

0.2781 

112 

5.1928 

0.3056 

5.3301 

0.2650 

5.4856 

0.2534 

114 

5.1612 

0.2868 

5.2971 

0.2533 

5.4352 

0.2268 

116 

5.0901 

0.2914 

5.2512 

0.2570 

5.3712 

.0.2329 

120 

4.9942 

0.2883 

5.1096 

0.2557 

5.2327 

0.2397 

124 

4.8021 

0.2780 

4 . 94.50 

0.2556 

5.0781 

0.2203 

128 

4.5895 

0.2770 

4.7309 

0.2542 

4.8862 

0.2298 

132 

4.3592 

0.2813 

4.5000 

0.2511 

4.6287 

0.2287 

136 

4.1404 

0.2840 

4.2390 

0.2449 

4.3841 

0.2194 

140 

3.8972 

0.2685 

3.9911 

0.2422 

4.1243 

0;2161 

144 

3.5946 

0.2557 

3.6979 

0.2297 

3.8392 

0.2089 

148 

3.2920 

0.2573 

3.3930 

0.2227 

3.5093 

0.1918 

152 

2.9939 

0.2229 

3.0697 

0.2078 

3.1715 

0.1985 

156 

2.6303 

0.2503 

2.7204 

0.2081 

2.8216 

0.1973 

160 

2.2829 

0.2283 

2.3692 

0.2045 

2.4679 

0.1802 

164 

1.9014 

0.2133 

1.9774 

0.1912 

2.0581 

0.1838 

168 

1.4714 

0.2067 

1.5760 

0.1790 

1.6365 

0.1681 

172 

1.0937 

0.1917 

1.1659 

0.1772 

1.2344 

0.1665 

176 

0.6767 

0.1980 

0.7642 

0.1687 

0.8102 

0.1605 

180 

0.1974 

0.1482 

0.2501 

0.1542 

0.2926 

0.1555 
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SPRE 


s/d » 44 


6 Um e 

deg. m/sec deg. 

2 0.0610 90 

4 0.0669 92 

6 0.0858 94 

8 0.2128 96 

10 0.4628 . 98 

12 0.7362 100 

14 0.9702 102 

16 1.1908 104 

18 1.3971 106 

20 1.5783 108 

22 1.7300 11° 

24 1.8725 H2 

26 2.0116 114 

28 2.1483 116 

30 2.2953 118 

32 2.4522 120 

34 2.6036 122 

36 2.7346 124 

38 2.8546 126 

40 2.9616 128 

42 3.0555 130 

44 3.1771 132 

46 3.3147 134 

48 3.4423 136 

50 3.5668 136 

52 3.6725 140 

54 3.7560 142 

56 3.8309 144 

58 3.8987 146 

60 3.9809 148 

62 4.0741 150 

64 4.1585 152 

66 4.2451 154 

68 4.3104 156 

70 4.3580 158 

72 4.3876 160 

74 4.4212 162 

76 4.4655 164 

78 4.5162 166 

80 4.5670 168 

82 4.6040 170 

84 4.6262 172 

86 4.6325 174 

68 4.6324 176 


Um 

e 

Urn 

m/sec 

deg. 

m/sec 

4.6306 

178 

0.2130 

4.6340 

180 

0.0916 


4.6470 

4.6503 

4.6403 

4.6238 

4.6077 

4.5708 

4.5633 

4.5133 

4.4450 

4.3779 

4.3304 

4.2695 

4.2076 

4.1425 

4.0606 

3.9881 

3.9148 

3.8149 

3.7078 

3.6081 

3.5120 

3.4102 

3.2966 

3.1850 

3.0609 

2.9274 

2.7944 

2.6590 

2.5110 

2.3685 

2.2159 

2.0763 

1.9201 

1.7551 

1.5980 

1.4134 

1.2270 

1.0551 

0.8909 

0.7215 

0.5478 

0.3773 
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Figure 1 1 : Ensemble-averaged velocity at s/d * 44 
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Figure 12: Streamwise velocity fluctuation at s/d = 44 
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Figure 1 3: Streamwise turbulence intensity, u' / u , at s/d * 44 

Note: The peaks appear lower than the actual data due to smoothing by the plotting 
package. The peak turbulence intensity is 1 .30, at 164° for r/R • 0.990. 
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I. CROSS-WIRE DATA 


SPRE Operating Point 
Nozzle Inlet Geometry 

(e, u) (9, u’) (0, v) (0, v’) (0, uv) 

Ambient Conditions 


axial station 
s/d 

T (°C) 

P (bar) 

0.33 

28.24 

0.983 

16 

27.20 

0.986 

30 

27.45 

0.992 

44 

28.22 

0.989 


Note that the data are tabulated at every 4 degrees of crank position except 
within ±10 degrees of transition, for which the resolution is every 2 degrees. 


II. SUPPLEMENTAL FIGURES 

In order to supplement the three-dimensional figures which appear in the main 
body of the thesis, additional figures generated from the cross-wire data have 
been included after the tabulated data for each of the four axial stations. At 
each station, smoothed plots are provided of the streamwise and radial rms- 
velocity components, in addition to unsmoothed plots of the Reynolds shear 
stress. 
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CROSS-WIRE DATA 


SPRE 


s/d = 0.33 


r/R * 0.800 


e 

• 

u 

u’ 

V 

V’ 

-uV 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2/sec 2 

4 

0.4228 

0.1442 

-0.0037 

0.0510 

-0.0004 

8 

0.7592 

0.1309 

0.0295 

0.0573 

-0.0018 

12 

1.0543 

0.1224 

0.0476 

0.0716 

0.0020 

14 

1.2319 

0.1234 

0.0660 

0.0591 

0.0018 

16 

1.4369 

0.1124 

0.0754 

0.0539 

0.0000 

18 

1.6428 

0.1044 

0.0936 

0.0653 

0.0015 

20 

1.8385 

0.1037 

0.1082 

0.0542 

0.0009 

22 

2.0077 

0.1299 

0.1301 

0.0813 

0.0039 

24 

2.1336 

0.1211 

0.1404 

0.0710 

0.0029 

26 

2.2679 

0.1385 

0.1355 

0.0891 

0.0056 

28 

2.4336 

0.1403 

0.1627 

0.0994 

0.0057 

30 

2.6012 

0.1561 

0.1706 

0.1159 

0.0057 

32 

2.7859 

0.1758 

0.1716 

0.1056 

0.0089 

36 

3.1658 

0.1686 

0.1972 

0.1414 

0.0070 

40 

3.4388 

0.2097 

0.2112 

0.1824 

0.0169 

44 

3.6419 

0.2239 

0.2313 

0.1953 

0.0173 

48 

3.9453 

0.2142 

0.2472 

0.1836 

0.0085 

52 

4.2239 

0.1738 

0.2153 

0.1892 

0.0059 

56 

4.3971 

0.1723 

0.2403 

0.1425 

0.0076 

60 

4.5231 

0.1764 

0.2434 

0.1584 

0.0071 

64 

4.7320 

0.1825 

0.2496 

0.1729 

0.0204 

68 

4.8728 

0.1861 

0.2542 

0.2051 

0.0224 

72 

4.9824 

0.1969 

0.2824 

0.1399 

0.0096 

76 

5.0919 

0.1369 

0.3099 

0.1414 

0.0146 

80 

5.1970 

0.1510 

0.3071 

0.1392 

0.0160 

84 

5.2939 

0.1026 

0.3170 

0.1155 

0.0106 

88 

5.2917 

0.0739 

0.2946 

0.0746 

0.0044 

92 

5.3002 

0.1313 

0.3098 

0.1397 

0.0176 

96 

5.2889 

0.0953 

0.3048 

0.0954 

0.0086 

100 

5.2613 

0.0634 

0.3048 

0.0666 

0.0039 

104 

5.2201 

0.1126 

0.2949 

0.1165 

0.0129 

108 

5. 1174 

0.0987 

0.3022 

0.1037 

0.0100 

112 

5.0316 

0.1373 

0.2963 

0.1446 

0.0195 

116 

4.9070 

0.1231 

0.2786 

0.1256 

0.0152 

120 

4.7480 

0.1185 

0.3032 

0.1249 

0.0146 

124 

4.5449 

0.1097 

0.2526 

0.1118 

0.0121 
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e 

U 

U‘ 

V 

V’ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

128 

4.3999 

0.1006 

0.2249 

0.1050 

132 

4.1969 

0.0728 

0.2592 

0.0749 

136 

3.9586 

0.1116 

0.2533 

0.1179 

140 

3.6870 

0.0887 

0.2196 

0.0945 

144 

3.4194 

0.0704 

0.2176 

0.0728 

148 

3.1314 

0.0618 

0.2043 

0.0690 

152 

2.7973 

0.0831 

0.2004 

0.0886 

156 

2.4577 

0.0473 

0.1785 

0.0484 

160 

2.1253 

0.0461 

0.1586 

0.0470 

164 

1.7501 

0.0232 

0.1476 

0.0236 

168 

1.3544 

0.0451 

0.1389 

0.0477 

172 

0.9781 

0.0345 

0.1214 

0.0368 

176 

0.5921 

0.0295 

0.0954 

0.0301 

180 

0.2999 

0.0232 

0.0361 

0.0240 


-UV 

m 2/ S ec 2 


0.0105 

0.0047 

0.0130 

0.0083 

0.0050 

0.0041 

0.0072 

0.0022 

0.0021 

0.0004 

0.0021 

0.0012 

0.0009 

0.0006 
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SPRE s/d = 0.33 




r/R 

= 0.733 


e 

0 

u’ 

V 

V’ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

4 

0.3664 

0.1058 - 

■0.0049 

0.0500 

6 

0.7135 

0.1282 

0.0232 

0.0676 

12 

1.0306 

0.1337 

0.0456 

0.0724 

14 

1.2113 

0.1191 

0.0588 

0.0694 

16 

1.4199 

0.1096 

0.0736 

0.0607 

18 

1.6272 

0.0877 

0.0790 

0.0596 

20 

1.8303 

0.1073 

0.0962 

0.0733 

22 

2.0003 

0.1187 

0.1177 

0.0968 

24 

2.1644 

0.1338 

0.1530 

0.0911 

26 

2.3055 

0.1386 

0.1360 

0.1063 

28 

2.4821 

0.1385 

0.1576 

0.1181 

30 

2.6330 

0.1660 

0.1761 

0.1742 

32 

2.8140 

0.1590 

0.1841 

0.1544 

36 

3.1767 

0.1732 

0.2194 

0.1853 

40 

3.4420 

0.1616 

0.2321 

0.1970 

44 

3.6626 

0.1792 

0.2125 

0.2370 

48 

3.9808 

0.1829 

0.2513 

0.2599 

52 

4.2332 

0.1763 

0.2617 

0 . 2461 

56 

4.3857 

0.1564 

0.2837 

0.2238 

60 

4.5485 

0.1330 

0.2641 

0.2152 

64 

4.7357 

0.1910 

0.2670 

0.2274 

68 

4.9162 

0.1487 

0.2844 

0.1901 

72 

5.0091 

0.1193 

0.2673 

0.1696 

76 

5.0969 

0.0775 

0.3031 

0.1254 

80 

5.2002 

0.0469 

0.3442 

0.0815 

84 

5.2828 

0.1057 

0.3296 

0.1208 

88 

5.2798 

0.0716 

0.3181 

0.0784 

92 

5.2775 

0.0628 

0.3175 

0.0687 

96 

5.2500 

0.1074 

0.3012 

0.1141 

100 

5.2424 

0.0846 

0.3103 

0.0876 

104 

5.1926 

0.1193 

0.3168 

0.1235 

108 

5.0949 

0.1313 

0.3046 

0.1343 

112 

4.9860 

0.1141 

0.2708 

0.1169 

116 

4.8816 

0.0756 

0.3060 

0.0788 

120 

4.7343 

0.0743 

0.2906 

0.0772 

124 

4.5563 

0.0957 

0.2685 

0.0974 

128 

4.4088 

0.0346 

0.2319 

0.0341 

132 

4.1696 

0.0568 

0.2538 

0.0623 

136 

3.9654 

0.1157 

0.2620 

0.1224 

140 

3.6878 

0.0928 

0.2196 

0.0972 

144 

3.4086 

0.0670 

0.2069 

0.0699 

148 

3.1444 

0.0700 

0.2075 

0.0721 


-u'v’ 

m 2/ S ec 2 

-o.OOll 

- 0.0002 

-0.0009 

-0.0005 

-0.0013 

- 0.0001 

0.0012 

0.0029 

0.0024 

0.0039 

0.0049 

0.0155 

0.0078 

0.0134 

0.0020 

0.0109 

0.0106 

0.0106 

0.0095 

0.0127 

0.0231 

0.0150 

0.0128 

0.0059 

0.0009 

0.0105 

0.0050 

0.0039 

0.0119 

0.0073 

0.0143 

0.0173 

0.0131 

0.0056 

0.0056 

0.0092 

0.0011 

0.0034 

0.0141 

0.0090 

0.0045 

0.0048 
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e 

u 

u’ 

deg. 

m/sec 

m/sec 

152 

2.8076 

0.0660 

156 

2.4864 

0.0684 

160 

2.1528 

0.0452 

164 

1.7881 

0.0485 

168 

1.4137 

0.0461 

172 

1.0693 

0.0461 

176 

0.6740 

0.0433 

180 

0.3251 

0.0183 


SPRE 

r/R 


6 

U 

u* 

deg. 

m/sec 

m/sec 

4 

0.3247 

0.1047 

8 

0.6328 

0.1357 

12 

0.9604 

0.1196 

14 

1.1696 

0.1264 

16 

1.3719 

0.1234 

18 

1.5950 

0.1071 

20 

1 . 8077 

0.1153 

22 

1.9792 

0.1172 

24 

2.1155 

0.1280 

26 

2.3120 

0.1361 

28 

2.4598 

0.1394 

30 

2.6511 

0.1614 

32 

2.8592 

0.1580 

36 

3.2352 

0.1646 

40 

3.4552 

0.1906 

44 

3.7004 

0.1828 

48 

3.9645 

0.1900 

52 

4.2599 

0.1238 

56 

4.4090 

0.1246 

60 

4.5489 

0.1259 

64 

4.7591 

0.1199 

68 

4.9289 

0.1272 

72 

5.0243 

0.1016 

76 

5.1025 

0.1065 

80 

5.2054 

0.0559 

84 

5.2799 

0.1010 

88 

5.2733 

0.0681 


V 

v' 

-u’v’ 

m/sec 

m/sec 

m 2 /sec 2 

0.1923 

0.0716 

0.0046 

0.1760 

0.0709 

0.0047 

0.1414 

0.0487 

0.0022 

0.1391 

0.0508 

0.0024 

0.1197 

0.0487 

0.0021 

0.1015 

0.0483 

0.0022 

0.0842 

0.0462 

0.0020 

0.0396 

0.0191 

0.0004 


s/d * 0.33 


= 0.600 



V 

V* 

-uV 

m/sec 

m/sec 

m 2 /sec 2 

0.0036 

0.0552 

-0.0011 

0.0164 

0.0622 

-0.0016 

0.0452 

0.0771 

-0.0003 

0.0578 

0.0743 

-0.0017 

0.0733 

0.0808 

o.oooi 

0.0856 

0.0725 

-0.0010 

0.1157 

0.1029 

0.0022 

0.1177 

0.1146 

0.0018 

0.1421 

0.1207 

0.0001 

0.1693 

0.1488 

0.0061 

0.1735 

0.1568 

0.0058 

0.1940 

0.1955 

0.0179 

0.1854 

0.2201 

0.0077 

0.2062 

0.2200 

0.0142 

0.2383 

0.2542 

0.0155 

0.2862 

0.2898 

0.0155 

0.2803 

0.3293 

0.0245 

0.2808 

0.2867 

0.0056 

0.3097 

0.2657 

0.0071 

0.2727 

0.2558 

0.0092 

0.2574 

0.2644 

0.0144 

0.2411 

0.2222 

0.0117 

0.2785 

0.1822 

0.0085 

0.2929 

0.1606 

0.0094 

0.3193 

0.0976 

0.0021 

0.3284 

0.1151 

0.0097 

0.3215 

0.0772 

0.0045 


52 



6 

0 

u’ 

V 

V’ 

-lTv’ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2/ S ec 2 

92 

5.2454 

0.0622 

0.3134 

0.0668 

0.0038 

96 

5.2403 

0.0847 

0.3212 

0.0866 

0.0071 

100 

5.2360 

0.1144 

0.3349 

0.1196 

0.0136 

104 

5.1743 

0.1056 

0.3301 

0.1099 

0.0113 

108 

5.0931 

0.0861 

0.3355 

0.0888 

0.0074 

112 

4.9929 

0.0975 

0.3098 

0.0997 

0.0094 

116 

4.8570 

0.0998 

0.3093 

0.1049 

0.0101 

120 

4.7171 

0.0608 

0.3012 

0.0637 

0.0038 

124 

4.5468 

0.0768 

0.2864 

0.0785 

0.0060 

128 

4.3906 

0.0892 

0.2402 

0.0932 

0.0083 

132 

4.1755 

0.0856 

0.2858 

0.0878 

0.0074 

136 

3.9325 

0.0489 

0.2534 

0.0497 

0.0024 

140 

3.6838 

0.0810 

0.2389 

0.0830 

0.0067 

144 

3.4045 

0.0689 

0.2253 

0.0731 

0.0049 

148 

3.1231 

0.0787 

0.2017 

0.0794 

0.0061 

152 

2.7993 

0.0572 

0.2005 

0.0591 

0.0034 

156 

2.4755 

0.0552 

0.1762 

0.0529 

0.0027 

160 

2. 1530 

0.0648 

0.1570 

0.0675 

0.0044 

164 

1.7975 

0.0368 

0.1485 

0.0382 

0.0014 

168 

1.4301 

0.0394 

0.1197 

0.0408 

0.0016 

172 

1.0619 

0.0387 

0.1018 

0.0410 

0.0016 

176 

0.6959 

0.0214 

0.0721 

0.0213 

0.0004 

180 

0.3402 

0.0215 

0.0377 

0.0224 

0.0005 




SPRE 


S/d = 0.33 




r/R 

= 0.467 



e 

u 

u’ 

V 

v' 

-uV 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2 /sec 2 

4 

0.3077 

0.1003 - 

•0.0018 

0.0520 

-0.0012 

8 

0.5992 

0.1233 

0.0275 

0.0735 

0.0001 

12 

0.9130 

0.1111 

0.0502 

0.0765 

-0.0011 

14 

1.1134 

0.1174 

0.0620 

0.0764 

-0.0005 

16 

1.3268 

0.1192 

0.0898 

0.0867 

0.0016 

18 

1.5445 

0.1019 

0.0884 

0.0721 

-0.0013 

20 

1.7668 

0.1209 

0.1102 

0.0940 

0.0018 

22 

1.9459 

0.1239 

0.1202 

0.0929 

-0.0014 

24 

2.1224 

0.1452 

0.1291 

0.1156 

-0.0009 

26 

2.2980 

0.1469 

0.1561 

0.1475 

0.0014 

28 

2.4670 

0.1382 

0.1779 

0.1667 

0.0048 

30 

2.6483 

0.1636 

0.1920 

0.1778 

0.0087 

32 

2.8451 

0.1655 

0.1974 

0.2098 

0.0092 
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e 

Cl 

U’ 

V 

v' 

-UV' 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2 /sec 2 

36 

3.2210 

0.1626 

0.2130 

0.2619 

0.0153 

40 

3.4582 

0.1400 

0.2215 

0.2982 

0.0078 

44 

3.7065 

0.1582 

0.3072 

0.3052 

0.0112 

46 

4.0185 

0.1723 

0.3064 

0.2903 

0.0102 

52 

4.2603 

0.1622 

0.3171 

0.3344 

0.0119 

56 

4.4426 

0.1552 

0.3230 

0.3078 

0.0175 

60 

4.5764 

0.1230 

0.2668 

0.3289 

0.0129 

64 

4.7881 

0.1621 

0.3165 

0.3503 

0.0327 

68 

4.9385 

0.1181 

0.3041 

0.2548 

0.0130 

72 

5.0391 

0.1063 

0.2746 

0.1971 

0.0048 

76 

5.1194 

0.1077 

0.3098 

0.1835 

0.0108 

80 

5.1940 

0.1377 

0.3236 

0.1662 

0.0183 

84 

5.2898 

0.0780 

0.3435 

0.1056 

0.0058 

88 

5.2962 

0.0867 

0.3494 

0.0877 

0.0065 

92 

5.2733 

0.0679 

0.3534 

0.0716 

0.0045 

96 

5.2376 

0.0946 

0.3301 

0.0979 

0.0091 

100 

5.2203 

0.0588 

0.3405 

0.0620 

0.0035 

104 

5.1854 

0.1146 

0.3419 

0.1222 

0.0136 

108 

5.0933 

0.0951 

0.3489 

0.1012 

0.0095 

112 

4.9914 

0.0921 

0.3297 

0.0958 

0.0087 

116 

4.8546 

0.0327 

0.3130 

0.0337 

0.0008 

120 

4.7185 

0.0521 

0.3294 

0.0534 

0.0027 

124 

4.5527 

0.0893 

0.3168 

0.0935 

0.0083 

128 

4.4054 

0.0818 

0.2813 

0.0865 

0.0070 

132 

4.1717 

0.0633 

0.3045 

0.0595 

0.0037 

136 

3.9359 

0.1226 

0 . 2787 

0.1294 

0.0158 

140 

3.6786 

0.0583 

0.2557 

0.0604 

0.0035 

144 

3.4224 

0.1010 

0.2630 

0.1050 

0.0105 

148 

3.1210 

0.0586 

0.2140 

0.0635 

0.0036 

152 

2.8110 

0.0964 

0.2299 

0.1008 

0.0097 

156 

2.4899 

0.0292 

0.1982 

0.0312 

0.0006 

160 

2.1554 

0.0442 

0.1741 

0.0462 

0.0020 

164 

1.7940 

0.0699 

0.1576 

0.0748 

0.0052 

168 

1.4339 

0.0541 

0.1309 

0.0566 

0.0030 

172 

1.0594 

0.0244 

0.1013 

0.0249 

0.0006 

176 

0.7006 

0.0456 

0.0748 

0.0474 

0.0021 

180 

0.3436 

0.0185 

0.0390 

0.0185 

0.0004 
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SPRE 


s/d = 0.33 


r/R = 0.333 


e 

u 

U* 

V 

V’ 

-uV 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2 /sec 2 

4 

0.2765 

0.0917 

0.0106 

0.0495 

0.0003 

8 

0.5441 

0.1181 

0.0241 

0.0652 

0.0006 

12 

0.8879 

0.1116 

0.0552 

0.0724 

-0.0015 

14 

1.0798 

0.1082 

0.0724 

0.0880 

0.0020 

16 

1.2849 

0. 1122 

0.0910 

0.0772 

-0.0006 

18 

1.5066 

0.1055 

0.0964 

0.0716 

-0.0018 

20 

1.7443 

0.1197 

0.1046 

0.0998 

0.0023 

22 

1.9078 

0.1123 

0.1194 

0.1014 

0.0008 

24 

2.1076 

0.1366 

0.1370 

0.1370 

-0.0001 

26 

2.2837 

0.1514 

0.1729 

0.1667 

0.0065 

28 

2.4455 

0.1836 

0.1946 

0.2047 

0.0143 

30 

2.6364 

0.1511 

0.1799 

0.1980 

0.0052 

32 

2.8121 

0.1670 

0.2002 

0.2111 

0.0010 

36 

3.2031 

0.1723 

0.2196 

0.2630 

0.0034 

40 

3.4561 

0.1590 

0.2212 

0.2825 

0.0058 

44 

3.7039 

0.1710 

0.2452 

0.2973 

0.0051 

48 

4.0023 

0.1548 

0.2659 

0.3514 

0.0043 

52 

4.2537 

0.1353 

•0.2960 

0.3183 

-0.0010 

56 

4.4219 

0.1468 

0.3265 

0.3456 

0.0136 

60 

4.5761 

0.1266 

0.3452 

0.3380 

0.0071 

64 

4.7592 

0.1043 

0.2448 

0.3461 

0.0026 

68 

4.9344 

0.1148 

0.2454 

0.2656 

0.0054 

72 

5.0235 

0.1139 

0.2724 

0.2250 

0.0122 

76 

5.0866 

0.1018 

0.2967 

0.1809 

0.0101 

80 

5.1816 

0.0859 

0.3311 

0.1231 

0.0071 

84 

5.2461 

0.0657 

0.3400 

0.0835 

0.0046 

88 

5.2542 

0.0943 

0.3444 

0.1024 

0.0094 

92 

5.2485 

0.1339 

0.3463 

0.1413 

0.0188 

96 

5.2397 

0.0399 

0.3396 

0.0417 

0.0017 

100 

5.2159 

0.1483 

0.3329 

0.1559 

0.0228 

104 

5.1651 

0.1175 

0.3584 

0.1223 

0.0142 

108 

5.0851 

0.0913 

0.3520 

0.0956 

0.0087 

112 

4.9681 

0.0902 

0.3509 

0.0939 

0.0083 

116 

4.8316 

0.1136 

0.3394 

0.1185 

0.0134 

120 

4.7105 

0.0858 

0.3297 

0.0943 

0.0080 

124 

4.5350 

0.0930 

0.3312 

0.0984 

0.0089 

128 

4.4106 

0.0874 

0.2623 

0.0916 

0.0080 

132 

4.1578 

0.0475 

0.3016 

0.0489 

0.0023 

136 

3.9079 

0.0909 

0.2683 

0.0931 

0.0082 

140 

3.6807 

0.0714 

0.2474 

0.0716 

0.0050 

144 

3.3966 

0.0563 

0.2417 

0.0587 

0.0033 

148 

3.1047 

0.0627 

0.2283 

0.0648 

0.0039 

152 

2.7924 

0.0412 

0.2179 

0.0431 

0.0017 
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e 

u 

iT 

deg. 

m/sec 

m/sec 

156 

2.4764 

0.0353 

160 

2.1530 

0.0246 

164 

1.7885 

0.0499 

168 

1.4209 

0.0369 

172 

1.0622 

0.0436 

176 

0.6963 

0.0184 

180 

0.3390 

0.0177 



SPRE 


6 

u 

u* 

deg. 

m/sec 

m/sec 

4 

0.2680 

0.0819 

8 

0.5104 

0.1170 

12 

0.8276 

0.1070 

14 

1.0172 

0.1009 

16 

1.2379 

0.1052 

18 

1.4832 

0.1082 

20 

1.6854 

0.1141 

22 

1.9022 

0.1199 

24 

2.1114 

0.1404 

26 

2.2640 

0.1750 

28 

2.4391 

0.1743 

30 

2.5989 

0.1865 

32 

2.7805 

0. 1969 

36 

3.2043 

0.1662 

40 

3.4770 

0.1621 

44 

3.7060 

0.1558 

48 

3.9969 

0.1696 

52 

4.2757 

0.1491 

56 

4.4136 

0.1386 

60 

4.5646 

0.1172 

64 

4.7613 

0.1329 

68 

4.9276 

0.1133 

72 

5.0105 

0.1192 

76 

5.0777 

0.0543 

80 

5.1797 

0.1556 

84 

5.2436 

0.0804 

88 

5.2331 

0.1066 

92 

5.2386 

0.1216 

96 

5.2107 

0.1115 

100 

5.2147 

0.0769 


V 

V* 

-uV 

m/sec 

m/sec 

m 2 /sec 2 

0.1981 

0.0367 

0.0012 

0.1623 

0.0237 

0.0005 

0.1531 

0.0527 

0.0026 

0.1188 

0.0380 

0.0013 

0.1024 

0.0457 

0.0020 

0.0705 

0.0186 

0.0003 

0.0333 

0.0181 

0.0003 



S/d = 0.33 


= 0.200 



— — , 

V 

* 

V 

-u V 

m/sec 

m/sec 

m 2 /sec 2 

0.0239 

0/0517 

0.0013 

0.0326 

0.0698 

0.0029 

0.0584 

0.0719 

0.0012 

0.0570 

0.0707 

-0.0001 

0.0929 

0.1064 

0.0042 

0.1036 

0.0944 

0.0017 

0.1082 

0.0875 

0.0008 

0.1217 

0.1123 

0.0008 

0.1246 

0.1522 

0.0000 

0. 1690 

0.1858 

0.0054 

0.1794 

0.2013 

0.0081 

0.2095 

0.2315 

0.0128 

0.2058 

0.2629 

0.0104 

0.2020 

0.2893 

0.0150 

0.2499 

0.3464 

0.0038 

0.2290 

0.3558 

0.0104 

0.2845 

0.3588 

0.0108 

0.3202 

0.3576 

0.0084 

0.2454 

0.3219 

0.0023 

0.2317 

0.3103 

0.0078 

0. 2139 

0.3182 

0.0164 

0.2564 

0.2924 

0.0095 

0.2538 

0.2613 

0.0142 

0.2921 

0.1591 

0.0009 

0.3236 

0.1873 

0.0259 

0.3327 

0.0973 

0.0063 

0.3237 

0.1112 

0.0114 

0.3433 

0.1263 

0.0152 

0.3168 

0.1150 

0.0127 

0.3287 

0.0802 

0.0060 


56 


e U u* v V’ -uV 

deg. m/sec m/sec m/sec m/sec m 2 /sec 2 


104 5.1763 0.1182 0.3744 0.1231 
108 5.0511 0.0952 0.3239 0.0984 
112 4.9579 0.0600 0.3419 0.0590 
116 4.8284 0.0595 0.3376 0.0626 
120 4.7044 0.0704 0.3185 0.0735 
124 4.5092 0.0844 0.2968 0.0842 
128 4.3919 0.0810 0.2494 0.0833 
132 4.1503 0.0681 0.2926 0.0687 
136 3.9165 0.0709 0.2659 0.0759 
140 3.6631 0.0726 0.2254 0.0765 
144 3.3869 0.0626 0.2377 0.0660 
148 3.0958 0.0723 0.2089 0.0742 
152 2.7793 0.0708 0.1977 0.0733 
156 2.4644 0.0728 0.1863 0.0755 
160 2.1457 0.0629 0.1568 0.0655 
164 1.7800 0.0312 0.1478 0.0314 
168 1.4234 0.0272 0.1225 0.0276 
172 1.0645 0.0486 0.1069 0.0514 
176 0.6995 0.0346 0.0737 0.0359 
180 0.3433 0.0193 0.0338 0.0194 


0.0143 

0.0093 

0.0032 

0.0036 

0.0049 

0.0067 

0.0067 

0.0045 

0.0051 

0.0055 

0.0041 

0.0052 

0.0051 

0.0054 

0.0041 

0.0009 

0.0007 

0.0025 

0.0012 

0.0004 




SPRE 


S/d = 0.33 





r/R = 0.000 








~T~« 

6 

u 

u' 

V 

v' 

-u V 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2 /sec 2 

4 

0.2841 

0.0974 

0.0335 

0.0692 

0.0043 

8 

0.5308 

0.1203 

0.0391 

0.0798 

0.0043 

12 

0.8414 

0.1055 

0.0658 

0.0767 

0.0037 

14 

1.0189 

0.1084 

0.0852 

0.0864 

0.0035 

16 

1.2365 

0.0996 

0.0919 

0.0806 

0.0040 

18 

1.4489 

0.1105 

0.1012 

0.0770 

0.0035 

20 

1.6766 

0.1064 

0.1022 

0.0862 

0.0035 

22 

1.8678 

0.1090 

0.1053 

0.1025 

0.0031 

24 

2.0961 

0.1304 

0.1251 

0.1381 

0.0004 

26 

2.2359 

0.1449 

0.1226 

0.1762 

0.0036 

28 

2.4317 

0.1690 

0.1519 

0.1902 

-0.0002 

30 

2.6295 

0.1640 

0.1936 

0.2010 

0.0009 

32 

2.7983 

0.1758 

0.2081 

0.2459 

0.0020 

36 

3.1809 

0.1436 

0.1836 

0.2684 

0.0023 

40 

3.4778 

0.1585 

0.1434 

0.2874 

0.0091 

44 

3.6992 

0.1635 

0.1214 

0.3242 

0.0065 
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e 

u 

u’ 

V 

V’ 

-uV 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2/ S ec 2 

48 

3.9608 

0.1503 

0.2113 

0.3488 

-0.0012 

52 

4.2308 

0.1265 

0.2278 

0.3350 

0.0053 

56 

4.3925 

0.1165 

0.2230 

0.3806 

0.0051 

60 

4.5378 

0.1372 

0.2474 

0.3732 

0.0034 

64 

4.7321 

0.1326 

0.2243 

0.3531 

0.0166 

68 

4.9011 

0.1260 

0.2555 

0.3105 

0.0116 

72 

4.9761 

0.1098 

0.2505 

0.2421 

0.0055 

76 

5.0468 

0.1116 

0.2889 

0.1859 

0.0117 

80* 

5.1526 

0.1415 

0.3305 

0.1724 

0.0214 

84 

5.2159 

0.1005 

0.3361 

0.1144 

0.0101 

88 

5.2065 

0.0476 

0.3263 

0.0514 

0.0021 

92 

5.2049 

0.0795 

0.3326 

0.0850 

0.0067 

96 

5.2008 

0.1117 

0.3295 

0.1168 

0.0130 

100 

5.1804 

0.0834 

0.3267 

0.0855 

0.0068 

104 

5.1319 

0.1195 

0.3558 

0.1260. 

0.0148 

108 

5.0413 

0.0761 

0.3348 

0.0796 

0.0060 

112 

4.9076 

0.0972 

0.3144 

0.1007 

0.0096 

116 

4.8138 

0.1060 

0.3414 

0.1127 

0.0118 

120 

4.6694 

0.0995 

0.3037 

0.1066 

0.0104 

124 

4.4744 

0.0939 

0.2822 

0.0980 

0.0088 

128 

4.3596 

0.0675 

0.2348 

0.0709 

0.0048 

132 

4.1212 

0.0949 

0.2770 

0.0985 

0.0092 

136 

3.8993 . 

0.0697 

0.2623 

0.0688 

0.0046 

140 

3.6543 

0.0839 

0.2326 

0.0876 

0.0073 

144 

3.3636 

0.0593 

0.2246 

0.0612 

0.0036 

148 

3.0873 

0.0500 

0.2112 

0.0551 

0.0025 

152 

2.7623 

0.0634 

0.1914 

0.0654 

0.0040 

156 

2.4553 

0.0926 

0.1848 

0.0982 

0.0090 

160 

2.1314 

0.0268 

0.1512 

0.0274 

0.0007 

164 

1.7689 

0.0514 

0.1400 

0.0526 

0.0026 

168 

1.4200 

0.0473 

0.1219 

0.0491 

0.0023 

172 

1.0522 

0.0233 

0.0976 

0.0231 

0.0005 

176 

0.6964 

0.0342 

0.0703 

0.0358 

0.0012 

180 

0.3429 

0.0196 

0.0348 

0.0198 

0.0004 
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Figure 1 4: Streamwise velocity fluctuation at s/d • 0.33 

(smoothed) 
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Figure 1 5: Radial velocity fluctuation at s/d » 0.33 

(smoothed) 
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CROSS-WIRE DATA 


SPRE 


S/d = 16 


r/R * 0.800 


v 

m/sec 


v’ 

m/sec 


-u'v* 


m 2 /sec 2 


6 

u 

u* 

deg. 

m/sec 

m/sec 

4 

0.4461 

0.1531 

8 

0.8037 

0.1336 

12 

1.1030 

0.1234 

16 

1.5007 

0.1087 

20 

1.9468 

0.1019 

24 

2.2698 

0.0968 

28 

2.5781 

0.0911 

32 

2.9333 

0.1199 

36 

3.3227 

0.1164 

40 

3.5714 

0.1280 

44 

3.8202 

0.1411 

48 

4.1732 

0.1635 

52 

4.4142 

0.1395 

54 

4.5015 

0.1671 

56 

4.5817 

0.1898 

58 

4.6959 

0.2362 

60 

4.7340 

0.3192 

• 62 

4.8223 

0.3949 

64 

4.9051 

0.4097 

66 

4.9671 

0.4536 

68 

5.0518 

0.5151 

70 

5.1391 

0.5232 

72 

5.1344 

0.5465 

76 

5.2278 

0.5225 

80 

5.3008 

0.5411 

84 

5.2597 

0.5891 

88 

5.2434 

0.5874 

92 

5.2642 

0.6368 

96 

5.2715 

0.5566 

100 

5.2955 

0.5882 

104 

5.3362 

0.4626 

108 

5.2548 

0.4841 

112 

5.1616 

0.3411 

116 

4.9727 

0.2973 

120 

4.7500 

0.2439 

124 

4.5686 

0.1599 


-0.0060 

0.0566 

0.0010 

0.0199 

0.0735 

-0.0004 

0.0571 

0.0703 

0.0006 

0.0841 

0.0581 

0.0010 

0.1167 

0.0631 

0.0024 

0.1360 

0.0679 

0.0035 

0.1770 

0.0623 

0.0028 

0.1995 

0.0922 

0.0067 

0.2305 

0.0816 

0.0064 

0.2396 

0.1034 

0.0089 

0.2781 

0.0829 

0.0074 

0.2782 

0.1156 

0.0067 

0.3173 

0.0534 

0.0034 

0.3336 

0.0944 

0.0096 

0.3419 

0.1083 

0.0139 

0.3528 

0.1052 

0.0124 

0.3514 

0.1118 

0.0153 

0.3431 

0.1590 

0.0369 

0.3611 

0.1708 

0.0382 

0.3851 

0.2046 

0.0291 

0.3246 

0.2530 

0.0567 

0.3634 

0.2312 

0.0421 

0.3595 

0.2293 

0.0599 

0.3398 

0.2256 

0.0460 

0.3370 

0.2999 

0.0743 

0.3349 

0.2936 

0.0638 

0.3493 

0.2908 

0.0559 

0.4193 

0.3119 

0.1043 

0.3542 

0.2667 

0.0471 

0.3632 

0.2820 

0.0786 

0.3934 

0.1723 

0.0142 

0.4154 

0.1125 

0.0118 

0.4266 

0.1247 

0.0085 

0.4407 

0.0902 

0.0128 

0.4476 

0.1410 

0.0203 

0.4494 

0.1320 

0.0166 


62 



V 


6 

U 

U* 

dep. 

m/sec 

m/sec 

128 

4.3586 

0.1254 

132 

4.1215 

0.1243 

136 

3.9179 

0.1056 

140 

3.6605 

0.1034 

144 

3.3768 

0.0920 

148 

3.0425 

0.0626 

152 

2.7014 

0.0435 

156 

2.3705 

0.0386 

160 

2.0101 

0.0624 

164 

1.6036 

0.0573 

168 

1.2065 

0.0452 

172 

0.8648 

0.0336 

176 

0.5390 

0.0362 

180 

0.3578 

0.0289 


-u'v’ 

m/sec* m/sec m^/sec^ 

0.4086 0.0663 -0.0009 

0.4347 0.1115 0.0107 

0.4380 0.0920 0.0079 

0.4228 0.0951 0.0088 

0.3932 0.0922 0.0074 

0.3779 0.0568 0.0028 

0.3563 0.0389 0.0013 

0.3277 0.0338 0.0010 

0.3065 0.0644 0.0038 

0.2730 0.0576 0.0031 

0.2402 0.0423 0.0017 

0.2008 0.0310 0.0008 

0.1612 0.0345 0.0011 

0.0410 0.0276 0.0007 
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SPRE s/d = 16 




r/R 

= 0.733 



e 

u 

u’ 

V 

v’ 

-uV 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m2/sec2 

4 

0.3959 

0.1283 - 

0.0041 

0.0563 

-0.0025 

8 

0.7566 

0.1304 

0.0217 

0.0717 

0.0002 

12 

1.0760 

0.1157 

0.0432 

0.0656 

-0.0006 

16 

1.4949 

0.1023 

0.0901 

0.0658 

0.0004 

20 

1.9415 

0.1146 

0.1185 

0.0858 

0.0044 

24 

2.2792 

0.1143 

0.1475 

0.0798 

0.0033 

28 

2.6022 

0.1089 

0.1761 

0.0870 

0.0054 

32 

2.9995 

0.0850 

0.1976 

0.0555 

0.0019 

36 

3.3719 

0.1112 

0.2143 

0.0923 

0.0071 

40 

3.6741 

0.1123 

0.2460 

0.0792 

0.0049 

44 

3.9309 

0.1057 

0.2643 

0.0763 

0.0053 

48 

4.3261 

0.1448 

0.2489 

0.1268 

0.0139 

52 

4.5861 

0.1121 

0.3184 

0.0866 

0.0062 

54 

4.7064 

0.1205 

0.3323 

0.0868 

0.0066 

56 

4.8065 

0.1855 

0.3396 

0.1369 

0.0174 

58 

4.8828 

0.1976 

0.3443 

0.1036 

0.0110 

60 

4.9888 

0.2962 

0.3348 

0.1631 

0.0271 

62 

5.1037 

0.3097 

0.3751 

0.1806 

0.0317 

64 

5.1977 

0.3501 

0.3478 

0.1888 

0.0342 

66 

5.2748 

0.3678 

0.3749 

0.2066 

0.0231 

68 

5.2406 

0.4041 

0.3542 

0.2247 

0.0342 

70 

5.2651 

0.4778 

0.3629 

0.2332 

0.0577 

72 

5.2088 

0.5003 

0.3387 

0.2055 

0.0491 

76 

5.2243 

0.5191 

0.3378 

0.2562 

0.0584 

80 

5.4144 

0.4708 

0.3556 

0.2745 

0.0557 

84 

5.4859 

0.4908 

0.3739 

0.2352 

0.0378 

88 

5.4460 

0.4994 

0.3514 

0.2629 

0.0423 

92 

5.4537 

0.5293 

0.3849 

0.2439 

0.0360 

96 

5.5560 

0.5096 

0.4061 

0.2545 

0.0523 

100 

5.5789 

0.4863 

0.3848 

0.2151 

0.0390 

104 

5.6071 

0.4080 

0.3945 

0.1376 

0.0076 

108 

5.6085 

0.2896 

0.4071 

0.1152 

0.0005 

112 

5.5781 

0.2202 

0.3944 

0.0800 

0.0035 

116 

5.4739 

0.1394 

0.4249 

0.0739 

0.0007 

120 

5.3386 

0.1402 

0.4785 

0.0953 

0.0085 

124 

5.0791 

0.1073 

0.4222 

0.0889 

0.0071 

128 

4.8739 

0.1324 

0.4280 

0.1256 

0.0150 

132 

4.6500 

0.0723 

0.4170 

0.0742 

0.0047 

136 

4.4494 

0.1110 

0.3380 

0.1129 

0.0123 

140 

4.1362 

0.0692 

0.3517 

0.0667 

0.0041 

144 

3.8373 

0.1176 

0.3399 

0.1194 

0.0134 

148 

3.4866 

0.0781 

0.3376 

0.0766 

0.0056 
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e 

m 

u 

u’ 

V 

v’ 

-uV 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m^/sec^ 

152 

3.1337 

0.0601 

0.3227 

0.0606 

0.0034 

156 

2.7725 

0.0665 

0.2946 

0.0659 

0.0041 

160 

2.4114 

0.0701 

0.2676 

0.0720 

0.0047 

164 

1.9758 

0.0430 

0.2533 

0.0394 

0.0015 

168 

1.5457 

0.0289 

0.2198 

0.0305 

0.0008 

172 

1.1652 

0.0541 

0.2110 

0.0554 

0.0029 

176 

0.7725 

0.0366 

0.1651 

0.0361 

0.0011 

180 

0.4245 

0.0338 

0.0346 

0.0247 

0.0001 


SPRE 


s/d *16 


r/R m 0.600 


6 u 

deg. m/sec 

4 0.3400 

8 0.6646 

12 1.0010 
16 1.4467 

20 1.8810 
24 2.2134 

28 2.5658 

32 2.9756 

36 3.3651 

40 3.6937 

44 3.9772 

48 4.3728 

52 4.6290 

54 4.7919 

56 4.8915 

58 5.0003 

60 5.0568 

62 5.1864 

64 5.2344 

66 5.3282 

68 5.4059 

70 5.4157 

72 5.4212 

76 5.4886 

80 5.5916 


u' 

V 

m/sec 

m/sec 

0.1171 

-0.0036 

0.1249 

0.0194 

0.1302 

0.0536 

0.1179 

0.0915 

0.1041 

0.1147 

0.1046 

0.1348 

0.0970 

0.1677 

0.0890 

0.2065 

0.1069 

0.2126 

0.1330 

0.2560 

0.0982 

0.2723 

0.1219 

0.2943 

0.1120 

0.3089 

0.1232 

0.3464 

0.1208 

0.3311 

0.1331 

0.3446 

0.2082 

0.3500 

0.2008 

0.3668 

0.2868 

0.3655 

0.3234 

0.3805 

0.2559 

0.3693 

0.2882 

0.3807 

0.3825 

0.3678 

0.3850 

0.3822 

0.3749 

0.3998 


V’ 

-UV 

m/sec 

m 2 /sec 2 

0.0496 

-0.0012 

0.0594 

-0.0017 

0.0869 

0.0004 

0.0746 

-0.0002 

0.0826 

-0.0008 

0.0792 

0.0009 

0.0542 

-0.0005 

0.0608 

-0.0004 

0.0833 

0.0033 

0.1111 

0.0108 

0.0807 

0.0040 

0.1234 

0.0144 

0.0993 

0.0091 

0.1157 

0.0103 

0.0926 

0.0060 

0.0998 

0.0042 

0.1754 

0.0186 

0.1688 

0.0174 

0.1961 

0.0232 

0.2483 

0.0505 

0.1855 

0.0175 

0.2125 

0.0205 

0.2563 

0.0512 

0.2088 

0.0389 

0.2339 

0.0352 


65 



e 

u 

u’ 

V 

V' 

-u'v* 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2 /sec 2 

64 

5.6439 

0.4117 

0.3894 

0.2156 

0.0374 

68 

5.6832 

0.3648 

0.3911 

0.2612 

0.0480 

92 

5.6803 

0.3998 

0.3812 

0.2433 

0.0500 

96 

5.7514 

0.3041 

0.4095 

0.1740 

0.0067 

100 

5.7519 

0.2929 

0.3704 

0.1548 

0.0145 

.104 

5.7867 

0.2282 

0.3991 

0.1268 

0.0037 

108 

5.7620 

0.1755 

0.3578 

0.1341 

0.0149 

112 

5.7745 

0.1600 

0.4162 

0.1602 

0.0235 

116 

5.6741 

0.0990 

0.3732 

0.0984 

0.0094 

120 

5.5116 

0.1268 

0.3575 

0.1291 

0.0159 

124 

5.3976 

0.1307 

0.4243 

0.1384 

0.0177 

128 

5.1322 

0.1089 

0.3580 

0.1132 

0.0118 

132 

4.9232 

0.1176 

0.3531 

0.1254 

0.0141 

136 

4.6792 

0.1035 

0.3493 

0.1059 

0.0108 

140 

4.4060 

0.1118 

0.3372 

0.1191 

0.0132 

144 

4.1160 

0.0957 

0.3005 

0.1001 

0.0094 

148 

3.7994 

0.0377 

0.2928 

0.0390 

0.0014 

152 

3.4428 

0.0473 

0.2507 

0.0473 

0.0021 

156 

3.1044 

0.0683 

0.2279 

0.0717 

0.0048 

160 

2.7371 

0.0540 

0.2195 

0.0551 

0.0029 

164 

2.3431 

0.0878 

0.2058 

0.0925 

0.0081 

168 

1.9013 

0.0540 

0.1665 

0.0556 

0.0029 

172 

1.4979 

0.0537 

0.1509 

0.0561 

0.0029 

176 

1.0748 

0.0326 

0.1280 

0.0326 

0.0010 

180 

0.6170 

0.0308 0.0881 

SPRE 

r/R = 0.467 

0.0288 
S/d = 16 

0.0008 

e 

Ci 

u’ 

V 

V’ 

-uV 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2 /sec 2 

4 

0.2885 

0.0957 

0.0072 

0.0489 

-0.0008 

8 

0.5994 

0.1157 

0.0338 

0.0626 

0.0002 

12 

0.9171 

0.1223 

0.0569 

0.0775 

-0.0007 

16 

1.3598 

0.1152 

0.1032 

0.0891 

0.0014 

20 

1.8238 

0.1177 

0.1302 

0.0893 

0.0025 

24 

2.1564 

0.1150 

0.1470 

0.0886 

0.0033 

28 

2.4953 

0.1001 

0.1667 

0.0765 

0.0002 

32 

2.9165 

0.1161 

0.1948 

0.0973 

0.0050 

36 

3.3663 

0.1207 

0.2489 

0.1232 

0.0093 
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V 


6 u 
deg. m/sec 

40 3.6422 0 

44 3.9454 0 

48 4.2960 0 

52 4.6229 0 

54 4.7390 0 

56 4.8534 0 

58 4.9455 0 

60 5.0990 0 

62 5.1822 0 

64 5.2697 0 

66 5.3522 0 

68 5.4424 0 

70 5.4779 0 

72 5.5005 0 

76 5.5313 0 

80 5.6663 0 

84 5.6917 0 

88 5.7297 0 

92 5.7733 0 

96 5.8177 0 

100 5.8076 0 

104 5.8230 0 

108 5.8025 0 

112 5.7447 0 

116 5.6198 0 

120 5.4652 0 

124 5.2933 0 

128 5.1837 0 

132 4.9049 0 

136 4.6350 0 

140 4.4015 0 

144 4.1696 0 

148 3.7784 0 

152 3.4460 0 

156 3.1197 0 

160 2.7527 0 

164 2.3657 0 

168 1.9424 0 

172 1.5651 0 

176 1.1662 0 . 

180 0.7099 0 . 


u 

m/sec m/sec 

.1403 0.2516 

.1039 0.2574 

.1027 0.2976 

.1026 0.3180 

.0770 0.3285 

.0981 0.3407 

.1462 0.3216 

.1772 0.3844 

.1672 0.3863 

.2324 0.3676 

.2532 0.3829 

.2411 0.3705 

.2374 0.3850 

.2533 0.3856 

.2945 0.3516 

.2809 0.4191 

.3367 0.3728 

.2844 0.3752 

.2995 0.4075 

.2320 0.4170 

.2086 0.3768 

.1642 0.4038 

.1210 0.4168 

.1433 0.4037 

.0297 0.3886 

0963 0.3625 

.0467 0.3903 

0757 0.4545 

1421 0.3785 

1102 0.3279 

1054 0 . 3368 ' 

1079 0.2099 

1026 0.2675 

1026 0.2522 

0479 0.2055 

0665 0.2009 

0688 0.1702 

0593 0.1360 

0179 0.1150 

0386 0.0929 

0295 0.0612 


V *uv 
m/sec m2/sec2 

0.1371 0.0153 
0.0857 0.0011 
0.1053 0.0094 
0.0929 0.0066 
0.0736 0.0019 
0.0982 0.0044 
0.1585 0.0133 
0.1667 0.0151 
0.1495 0.0067 
0.1824 0.0180 
0.2054 0.0241 
0.2310 0.0219 
0.1814 0.0082 
0.2211 0.0269 
0.2077 0.0270 
0.2047 0.0203 
0.2328 0.0367 
0.2056 0.0249 
0.2558 0.0396 
0.1552 0.0147 
0.1602 0.0190 
0.1662 0.0203 
0.1081 0.0106 
0.1449 0.0201 
0.0273 0.0003 
0.0965 0.0086 
0.0471 0.0017 
0.0768 0.0052 
0.1476 0.0207 
0.1133 0.0121 
0.1103 0.0115 
0.1113 0.0119 
0.1051 0.0106 
0.1039 0.0105 
0.0487 0.0022 
0.0689 0.0045 
0.0673 0.0043 
0.0638 0.0037 
0.0164 0.0002 
0.0404 0.0015 
0.0245 0.0006 
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SPRE s/d *16 

r/R = 0.333 


e 

Ci 

U* 

deg. 

m/sec 

m/sec 

4 

0.2750 

0.0749 

8 

0.5532 

0.1104 

12 

0.8841 

0.1245 

16 

1.3282 

0.1140 

20 

1.7686 

0.1119 

24 

2.1348 

0.0989 

28 

2.4811 

0.1038 

32 

2.8873 

0.0888 

36 

3.3309 

0.1192 

40 

3.6259 

0.0932 

44 

3.9425 

0.0897 

48 

4.3287 

0.0784 

52 

4.6301 

0.0978 

54 

4.7453 

0.0930 

56 

4.8557 

0.1103 

58 

4.9339 

0.1442 

60 

5.0646 

0.1653 

62 

5.2060 

0.1962 

64 

5.3117 

0.1798 

66 

5.3953 

0.1887 

68 

5.4580 

0.2062 

70 

5.5044 

0.1760 

72 

5. 5085 

0. 1990 

76 

5.5685 

0.2130 

80 

5.6428 

0.2533 

84 

5.7693 

0.2253 

88 

5.7677 

0.2515 

92 

5.7785 

0.2693 

96 

5.8558 

0.2114 

100 

5.8652 

0.1518 

104 

5.8212 

0.1086 

108 

5.7888 

0.1076 

112 

5.7251 

0.0812 

116 

5.6333 

0.0655 

120 

5.4829 

0.0520 

124 

5.3853 

0.1119 

128 

5.1120 

0.1015 

132 

4.9100 

0.0834 

136 

4.6669 

0.0896 

140 

4.3914 

0.0956 

144 

4.1793 

0.0961 


m 

V 

V* 

-uV 

m/sec 

m/sec 

m 2 /sec 2 

0.0082 

0.0514 

0.0000 

0.0305 

0.0647 

0.0001 

0.0522 

0.0847 

0.0008 

0.0939 

0.0843 

0.0014 

0.1225 

0.0948 

0.0025 

0.1459 

0.0738 

-0.0004 

0.1674 

0.0960 

0.0033 

0.2021 

0.0732 

0.0007 

0.2316 

0.0979 

0.0071 

0.2355 

0.0764 

0.0030 

0.2615 

0.0799 

0.0032 

0.2786 

0.0796 

0.0055 

0.3197 

0.0923 

0.0062 

0.3278 

0.0928 

0.0043 

0.3403 

0.1130 

0.0056 

0.3333 

0.1477 

0.0094 

0.3273 

0.1608 

0.0123 

0.3843 

0.2204 

0.0233 

0.3647 

0.1888 

0.0085 

0.3491 

0.2004 

0.0111 

0.3878 

0.2018 

0.0101 

0.3942 

0.2006 

0.0078 

0 . 3518 

0 . 1783 

0.0049 

0.3626 

0.2173 

0.0061 

0.3763 

0.2336 

0.0300 

0.3886 

0.2200 

0.0163 

0.3738 

0.2142 

0.0187 

0.3636 

0.2086 

0.0316 

0.3917 

0.1597 

0.0136 

0.3908 

0.1278 

0.0080 

0.3865 

0.1003 

0.0076 

0.3819 

0.1143 

0.0103 

0.3824 

0.0789 

0.0058 

0.3566 

0.0683 

0.0043 

0.3424 

0.0551 

0.0026 

0.4304 

0.1167 

0.0128 

0.3485 

0.1075 

0.0107 

0.3385 

0.0873 

0.0072 

0.3477 

0.0906 

0.0079 

0.3142 

0.0988 

0.0093 

0.2357 

0.0981 

0.0044 
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e 

u 

U* 

deg. 

m/sec 

m/sec 

148 

3.8075 

0.1122 

152 

3.4559 

0.1035 

156 

3.1281 

0.0910 

160 

2.7745 

0.0512 

164 

2.3627 

0.0593 

168 

1.9742 

0.0354 

172 

1.5846 

0.0572 

176 

1.1839 

0.0505 

180 

0.7397 

0.0295 


V 

V’ 

-uV 

m/sec 

m/sec 

m 2 /sec 2 

0.2753 

0.1157 

0.0128 

0.2391 

0.1076 

0.0111 

0.2075 

0.0950 

0.0085 

0 . 1933 

0.0520 

0.0025 

0.1544 

0.0602 

0.0035 

0.1433 

0.0372 

0.0013 

0.1146 

0.0585 

0.0033 

0.0825 

0.0520 

0.0026 

0.0525 

0.0280 

0.0007 


SPRE s/d = 16 




r/R 

= 0.200 








_T- 

e 

0 

u* 

V 

v’ 

-u V 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2 /sec 2 

4 

0.2581 

0.0747 

0.0135 

0.0502 

0.0012 

8 

0.5406 

0.1208 

0.0423 

0.0796 

0.0037 

12 

0.8655 

0.1202 

0.0585 

0.0855 

0.0027 

16 

1 . 3002 

0.0964 

0.1156 

0.0841 

0.0016 

20 

1.7517 

0.1178 

0.1306 

0.0903 

0.0036 

24 

2.0978 

0.1142 

0.1355 

0.0889 

0.0038 

28 

2.4436 

0.1025 

0.1646 

0.0990 

0.0039 

32 

2.8839 

0.1040 

0.1997 

0.0807 

0.0018 

36 

3.3141 

0.1152 

0.2245 

0.1024 

0.0074 

40 

3.6296 

0.1025 

0.2461 

0.0925 

0.0049 

44 

3.9391 

0.0955 

0.2702 

0.0856 

0.0043 

48 

4.3095 

0.1089 

0.2791 

0.1111 

0.0116 

52 

4.6123 

0.1164 

0.3193 

0.1215 

0.0121 

54 

4.7259 

0.0939 

0.3230 

0.0891 

0.0039 

56 

4.8315 

0.1119 

0.3143 

0.1308 

0.0072 

58 

4.9372 

0.1316 

0.3314 

0.1386 

0.0066 

60 

5.0475 

0.1884 

0.3403 

0.1829 

0.0138 

62 

5.1949 

0.1613 

0.3543 

0.1851 

0.0076 

64 

5.3256 

0.1582 

0.3627 

0.1917 

0.0092 

66 

5.4059 

0.1674 

0.3647 

0.2020 

0.0019 

68 

5.4983 

0.2243 

0.3909 

0.2427 

0.0268 

70 

5.4850 

0.1975 

0.4156 

0.2045 

-0.0005 

72 

5.5086 

0.2057 

0.3728 

0.2289 

0.0128 

76 

5.6063 

0.2362 

0.3818 

0.2366 

0.0132 

80 

5.6385 

0.2452 

0.3680 

0.2232 

0.0146 


69 



e 

U 

U* 

V 

V' 

-uV 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2 /sec 2 

84 

5.7790 

0.1969 

0.3778 

0.2070 

0.0051 

88 

5.8187 

0.2362 

0.3852 

0.2380 

0.0210 

92 

5.8154 

0.2267 

0.3881 

0.1988 

0.0180 

96 

5.8870 

0.1753 

0.3906 

0.1705 

0.0095 

100 

5.8774 

0.1383 

0.3974 

0.1307 

0.0107 

104 

5.8155 

0.1169 

0.3764 

0.0954 

0.0070 

108 

5.7804 

0.1132 

0.3832 

0.1046 

0.0099 

112 

5.7139 

0.0797 

0.3761 

0.0744 

0.0051 

116 

5.6317 

0.1227 

0.3763 

0.1287 

0.0157 

120 

5.4691 

0.1057 

0.3427 

0.1098 

0.0115 

124 

5.3524 

0.0414 

0.4009 

0.0433 

0.0017 

128 

5.1120 

0.1236 

0.3625 

0.1296 

0.0160 

132 

4.9026 

0.0864 

0.3379 

0.0876 

0.0073 

136 

4.6705 

0.0864 

0.3553 

0.0897 

0.0075 

140 

4.3925 

0.1019 

0.3091 

0.1015 

0.0099 

144 

4.1990 

0.0586 

0.1812 

0.0600 

0.0032 

148 

3.8077 

0.0943 

0.2630 

0.0950 

0.0087 

152 

3.4612 

0.1000 

0.2463 

0.1038 

0.0102 

156 

3.1358 

0.0418 

0.1892 

0.0390 

0.0013 

160 

2.7790 

0.0644 

0.1880 

0.0671 

0.0043 

164 

2.3738 

0.0604 

0.1529 

0.0585 

0.0033 

168 

1.9695 

. 0.0552 

0.1283 

0.0556 

0.0030 

172 

1.5864 

0.0425 

0.0955 

0.0448 

0.0019 

176 

1 . 1946 

0.0374 

0.0760 

0.0379 

0.0013 

180 

0.7614 

0.0348 

0.0494 

0.0312 

0.0010 




SPRE 


S/d = 16 




r/R 

= 0.000 



e 

u 

u’ 

V 

v' 

-UV 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2 /sec 2 

4 

0.2611 

0.0887 

0.0277 

0.0521 

0.0025 

8 

0.5208 

0.1081 

0.0416 

0.0664 

0.0025 

12 

0.8470 

0.1097 

0.0706 

0.0831 

0.0038 

16 

1.2799 

0.1014 

0.1028 

0.0865 

0.0036 

20 

1.7498 

0.1158 

0.1409 

0.0916 

0.0052 

24 

2.1023 

0.1003 

0.1562 

0.0757 

0.0022 

28 

2.4468 

0.1018 

0.1808 

0.0866 

0.0050 

32 

2.8850 

0.1157 

0.1895 

0.1121 

0.0079 
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e 

m 

u 

U * 

V 

V ’ 

-uV 

deg . 

m/sec 

m/sec s 

m/sec 

m/sec 

m 2 / sec 2 

36 

3.3075 

0.1101 

0.2178 

0.1178 

0.0089 

40 

3.6200 

0.1003 

0.2449 

0.0932 

0.0058 

■44 

3.9137 

0.1142 

0.2504 

0.1099 
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Figure 1 7: Streamwise velocity fluctuation at s/d « 1 6 

(smoothed) 
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Figure 18: Radial velocity fluctuation at s/d « 16 

(smoothed) 






Figure 1 9 : Reynolds shear stress at s/d * 1 6 

(not smoothed) 
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Figure 20: Streamwise velocity fluctuation at s/d * 30 

(smoothed) 
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Figure 2 1 : Radial velocity fluctuation at s/d = 30 

(smoothed) 
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0.1547 

64 

5.1076 

0.1377 

68 

5.3232 

0.1637 

72 

5.4630 

0.1336 

76 

5.5169 

0.1786 

80 

5.5942 

0.1305 

84 

5.6733 

0.1483 

88 

5.6932 

0.1843 

92 

5.6883 

0.1717 

96 

5.6972 

0.2291 

98 

5.7133 

0.3063 

100 

5.6726 

0.3401 

102 

5.5948 

0.4601 

104 

5.4581 

0.6025 

106 

5.1104 

0.6002 

108 

4.8957 

0.6338 

110 

4.9102 

0.5478 

112 

4.8994 

0.4832 

114 

4.8174 

0.4246 

116 

4.7651 

0.4045 

120 

4.5942 

0.4164 

124 

4.4716 

0.3863 

128 

4.2346 

0.4365 

132 

4.0133 

0.3669 

136 

3.8312 

0.3737 

140 

3.5161 

0.3429 

144 

3.3057 

0.3730 

148 

3.0008 

0.3249 

152 

2.6712 

0.3288 


V 

v' 

-uV 

m/sec 

m/sec 

m2/sec2 

-0.0151 

0.0553 

-0.0021 

0.0141 

0.0584 

-0.0014 

0.0465 

0.0726 

-0.0017 

0.0767 

0.0755 

0.0008 

0.1042 

0.0629 

0.0008 

0.1329 

0.0827 

0.0040 

0.1539 

0.0742 

0.0041 

0.1835 

0.0526 

0.0006 

0.2108 

0.1248 

0.0134 

0.2412 

0.0747 

0.0045 

0.2642 

0.0679 

0.0043 

0.2320 

0.0908 

0.0010 

0.2933 

0.0925 

0.0089 

0.3454 

0.1407 

0.0191 

0.3190 

0.1206 

0.0136 

0.3571 

0.0915 

0.0094 

0.3979 

0.1017 

0.0107 

0.4082 

0.0870 

0.0058 

0.3834 

0.1473 

0.0172 

0.3719 

0.0796 

0.0031 

0.3888 

0.0750 

0.0037 

0.3894 

0.1176 

0.0118 

0.4000 

0.0962 

0.0076 

0.3965 

0.1491 

0.0212 

0.4051 

0.1901 

0.0306 

0.3867 

0.1378 

0.0193 

0.3803 

0.2083 

0.0349 

0.3901 

0.2974 

0.1059 

0.3209 

0.4185 

0.1155 

0.2876 

0.3847 

0.1139 

0.2430 

0.3369 

0.1038 

0.3146 

0.2620 

0.0711 

0.3317 

0.2927 

0.0663 

0.3048 

0.2931 

0.0566 

0.2925 

0.2520 

0.0581 

0.2704 

0.2635 

0.0507 

0.2310 

0.3004 

0.0717 

0.2301 

0.2485 

0.0278 

0.2419 

0.2521 

0.0434 

0.2024 

0.2321 

0.0356 

0.2387 

0.2108 

0.0428 

0.1779 

0.2033 

0.0326 

0.1782 

0.2081 

0.0332 


90 


e 

u 

U’ 

V 

V’ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

156 

2.3349 

0.3079 

0.1734 

0.1962 

160 

2.0123 

0.2822 

0.1305 

0.2123 

164 

1.6478 

0.2675 

0.1025 

0.1660 

168 

1.3010 

0.2525 

0.1131 

0.1468 

172 

0.9278 

0.2192 

0.0653 

0.1027 

176 

0.5821 

0.1910 

0.0465 

0.0819 

180 

0.3475 

0.1065 

0.0279 

0.0546 




SPRE 


S/d = 44 




r/R = 0.600 


e 

U 

u' 

V 

V' 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

4 

0.3368 

0.1126 

-0.0088 

0.0536 

8 

0.6816 

0.1334 

0.0160 

0.0654 

12 

1.0089 

0.1206 

0.0424 

0.0774 

16 

1.4312 

0.1155 

0.0742 

0.0727 

20 

1.8617 

0.1215 

0.1090 

0.0864 

24 

2.2087 

0.1158 

0.1301 

0.0986 

28 

2.5492 

0.1132 

0.1513 

0.0805 

32 

2.9236 

0.1019 

0.1989 

0.0620 

36 

3.3001 

0.0885 

0.2152 

0.0820 

40 

3.5957 

0.1172 

0.2285 

0.1041 

44 

3.8861 

0.0986 

0.2487 

0.0907 

48 

4.2718 

0.1144 

0.2305 

0.1041 

52 

4.5285 

0.0944 

0.3101 

0.0913 

56 

4.7805 

0.1315 

0.3390 

0.1329 

60 

4.9927 

0.1202 

0 . 3470 

0.1250 

64 

5.2216 

0.1287 

0.3615 

0.1092 

68 

5.4791 

0.0756 

0.3899 

0.0683 

72 

5.5878 

0.0909 

0.3588 

0.0875 

76 

5.6943 

0.0959 

0.3517 

0.0784 

80 

5.8294 

0.1315 

0.3603 

0.1161 

84 

5.9651 

0.1630 

0.3813 

0.1533 

88 

6.0096 

0.1081 

0.3823 

0.0712 

92 

6.0451 

0.1357 

0.3838 

0.1134 

96 

6.0782 

0.1682 

0.3786 

0.1238 

98 

6.0531 

0.2026 

0.3825 

0.0788 

100 

6.0032 

0.2818 

0.3779 

0.1289 

102 

5.9468 

0.2793 

0.3776 

0.1955 


-iTv' 

m 2 /sec 2 

0.0330 

0.0315 

0.0252 

0.0164 

0.0093 

0.0092 

0.0025 


-uV 

m 2 /sec 2 

-0.0018 

-0.0016 

- 0.0011 

-0.0013 

-0.0007 

0.0033 

0.0027 

0.0014 

0.0037 

0.0073 

0.0061 

0.0057 

0.0060 

0.0147 

0.0136 

0.0123 

0.0036 

0.0059 

0.0060 

0.0119 

0.0218 

0.0044 

0.0117 

0.0141 

0.0051 

0.0156 

0.0243 


91 


e u u* v v 

deg. m/sec m/sec m/sec m/sec 

104 5.7473 0.4379 0.3715 0.2661 

106 5.5184 0.5940 0.3721 0.3302 

108 5.2993 0.5320 0.2848 0.3494 

110 5.1873 0.4744 0.2970 0.2801 

112 5.1791 0.4059 0.3874 0.2928 

114 5.0902 0.3955 0.3299 0.2567 

116 5.0281 0.3967 0.3605 0.2660 

120 4.8540 0.4199 0.3362 0.2551 

124 4.7375 0.4294 0.3268 0.2882 

128 4.5353 0.3511 0.3172 0.2511 

132 4.2885 0.3635 0.2951 0.2784 

136 4.0664 0.3393 0.2521 0.2350 

140 3.7926 0.3397 0.2351 0.2323 

144 3.5485 0.3311 0.2581 0.2136 

148 3.2446 0.2997 0.2215 0.2257 

152 2.8621 0.3358 0.1908 0.2114 

156 2.5617 0.2588 0.1812 0.1726 

160 2.1643 0.2805 0.1361 0.1867 

164 1.8231 0.2545 0.1142 0.1479 

168 1.4367 0.2177 0.1085 0.1520 

172 1.0746 0.2070 0.0823 0.1184 

176 0.6787 0.1862 0.0586 0.0950 

180 0.3800 0.1135 0.0343 0.0593 


-UV 

m 2 /sec 2 

0.0550 

0.1067 

0.1014 

0.0503 

0.0585 

0.0566 

0.0517 

0.0522 

0.0705 

0.0392 

0.0583 

0.0313 

0.0359 

0.0341 

0.0298 

0.0382 

0.0189 

0.0276 

0.0201 

0.0190 

0.0112 

0.0097 

0.0042 


SPRE 


s/d = 44 


e u 
deg. m/sec 

4 0.3056 

8 0.6161 
12 0.9797 

16 1.3836 

20 1.8341 

24 2.2036 

28 2.5305 

32 2.9152 

36 3.3242 

40 3.6276 

44 3.9263 

48 4.2970 

62 4.5842 


r/R = 0.467 

u' V 

m/sec m/sec 

0.0956 0.0038 

0.1133 0.0154 

0.1336 0.0468 

0.1178 0.0817 

0.1303 0.1105 

0.1277 0.1429 

0.1204 0.1625 

0.0962 0.1959 

0.1130 0.2205 

0.1201 0.2537 

0.0934 0.2564 

0.0946 0.2312 

0.1076 0.3178 


V* 

-u’v' 

m/sec 

m 2 /sec 2 

0.0527 

-0.0008 

0.0796 

0.0001 

0.0751 

0.0005 

0.0753 

-0.0014 

0.0920 

0.0030 

0.0890 

0.0011 

0.0961 

0.0034 

0.0743 

-0.0003 

0.0986 

0.0049 

0.1042 

0.0066 

0.0887 

0.0037 

0.0843 

0.0050 

0.1035 

0.0084 


92 



e 

u 

u’ 

V 

V' 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

56 

4.8104 

0.0845 

0.3101 

0.0797 

60 

5.0541 

0.1114 

0.3483 

0.1121 

64 

5.3401 

0.1001 

0.3961 

0.0935 

68 

5.5347 

0.0869 

0.3576 

0.0802 

72 

5.6648 

0.0672 

0.3466 

0.0658 

76 

5.8058 

0.1163 

0.3738 

0.1145 

80 

5.9636 

0.1216 

0.3783 

0.1227 

84 

6.0882 

0.0927 

0.3845 

0.0933 

88 

6.1584 

0.0672 

0.4009 

0.0579 

92 

6.2206 

0.1527 

0.4049 

0.1440 

96 

6.2290 

0.1199 

0.3926 

0.0901 

98 

6.2016 

0.2243 

0.3771 

0.1893 

100 

6.1673 

0.2247 

0.3658 

0.1657 

102 

6.0698 

0.2853 

0.3712 

0.2071 

104 

6.0420 

0.3569 

0.3620 

0.2736 

106 

6.0827 

0.4551 

0.4105 

0.3467 

108 

5.7450 

0.5014 

0.3478 

0.3159 

110 

5.5130 

0.4016 

0.3216 

0.2880 

112 

5.3613 

0.3571 

0.3579 

0.2487 

114 

5.3778 

0.3114 

0.3743 

0.2449 

116 

5.2977 

0.3538 

0.3618 

0.2282 

120 

5.1242 

0.3628 

0.3394 

0.2713 

124 

4.9753 

0.3573 

0.3615 

0.2389 

128 

4.7732 

0.3359 

0.3228 

0.2350 

132 

4.5402 

0.3080 

0.2923 

0.2400 

136 

4.3106 

0.2991 

0.2567 

0.2080 

140 

3.9680 

0.3467 

0.2236 

0.2387 

144 

3.7548 

0.2999 

0.2361 

0.2261 

148 

3.4093 

0.3207 

0.2024 

0.2104 

152 

3.0723 

0.2583 

0.2154 

0.1667 

156 

2.7081 

0.2636 

0.1929 

0.1942 

160 

2.3470 

0.2626 

0.1428 

0.1747 

164 

1.9850 

0.2446 

0.1511 

0.1637 

168 

1.5479 

0.2395 

0.1041 

0.1365 

172 

1.1941 

0.2064 

0.0983 

0.1294 

176 

0.7893 

0.1743 

0.0512 

0.0980 

180 

0.4362 

0.1118 

0.0371 

0.0675 


-uV 

m 2 /sec 2 

0.0041 

0.0103 

0.0073 

0.0048 

0.0036 

0.0121 

0.0128 

0.0081 

0.0027 

0.0200 

0.0056 

0.0300 

0.0183 

0.0240 

0.0434 

0.0799 

0.0840 

0.0610 

0.0278 

0.0170 

0.0261 

0.0498 

0.0418 

0.0328 

0.0418 

0.0341 

0.0379 

0.0285 

0.0352 

0.0199 

0.0216 

0.0191 

0.0239 

0.0166 

0.0138 

0.0077 

0.0036 
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SPRE S/d ■ 44 

r/R = 0.333 


e 

u 

u ’ 

deg . 

m/sec 

m/sec 

4 

0.2980 

0.0961 

8 

0.5851 

0.1277 

12 

0.9228 

0.1259 

16 

1.3440 

0.1076 

20 

1.7855 

0.1235 

24 

2.1405 

0.1013 

28 

2.4729 

0.1337 

32 

2.8825 

0.1116 

36 

3.2880 

0.1125 

40 

3.6037 

0.1122 

44 

3.8780 

0.1090 

48 

4.2817 

0.1071 

52 

4.5503 

0.0802 

56 

4.8024 

0.0993 

60 

5.0179 

0.0854 

64 

5.2968 

0.1227 

66 

5.5242 

0.0884 

72 

5.6333 

0.1090 

76 

5.7861 

0.1135 

80 

5.9292 

0.0630 

84 

6.0984 

0.1438 

88 

6.1428 

0.1120 

92 

6.2027 

0.1223 

96 

6.1962 

0.1525 

98 

6.2168 

0.1729 

100 

6.1968 

0.1972 

102 

6.1620 

0.2520 

104 

6.2130 

0.3580 

106 

6.2164 

0.4265 

108 

6.0122 

0.4175 

110 

5.7198 

0.3354 

112 

5.5931 

0.3162 

114 

5.5333 

0.2996 

116 

5.5100 

0.2992 

120 

5.3121 

0.3528 

124 

5.1467 

0.3558 

128 

4.8953 

0.3636 

132 

4.6968 

0.2877 

136 

4.4358 

0.3146 

140 

4.1994 

0.2948 

144 

3.8511 

0.2805 

148 

3.5329 

0.2688 


V 

V’ 

-U'v’ 

m/sec 

m/sec 

m 2 / sec 2 

0.0060 

0.0623 

- 0.0002 

0.0270 

0.0745 

0.0008 

0.0450 

0.0780 

0.0003 

0.0768 

0.0867 

- 0.0010 

0.1020 

0.0776 

0.0011 

0.1288 

0.0761 

- 0.0012 

0.1519 

0.0983 

0.0040 

0.1811 

0.0815 

0.0017 

0.2149 

0.0954 

0.0036 

0.2359 

0.0994 

0.0051 

0.2430 

0.1083 

0.0068 

0.2214 

0.1078 

0.0047 

0.2998 

0.0858 

0.0037 

0.3187 

0.1002 

0.0071 

0.3225 

0.0823 

0.0056 

0.3547 

0.1181 

0.0119 

0.3613 

0.0900 

0.0059 

0.3171 

0.1033 

0.0099 

0.3537 

0.1161 

0.0121 

0.3374 

0.0630 

0.0027 

0.3695 

0.1455 

0.0202 

0.3602 

0.1128 

0.0120 

0.3700 

0.1222 

0.0139 

0.3513 

0.1481 

0.0175 

0.3581 

0.1613 

0.0177 

0.3691 

0.1343 

0.0137 

0.3571 

0.1754 

0.0207 

0.3546 

0.2467 

0.0353 

0.3521 

0.3470 

0.0607 

0.3408 

0.2937 

0.0425 

0.3342 

0.2311 

0.0257 

0.3344 

0.2463 

0.0262 

0.3364 

0.2363 

0.0257 

0.3446 

0.2471 

0.0313 

0.3436 

0.2108 

0.0359 

0.3376 

0.2371 

0.0463 

0.3278 

0.2625 

0.0578 

0.2978 

0.2355 

0.0385 

0.2652 

0.2264 

0.0383 

0.2653 

0.2266 

0.0341 

0.2196 

0.2174 

0.0288 

0.1932 

0.1822 

0.0218 


e 

u 

tT 

V 

V’ 

-uV 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2 /sec 2 

152 

3.1972 

0.2271 

0.1826 

0.1656 

0.0121 

156 

2.8405 

0.2531 

0.1619 

0.1697 

0.0156 

160 

2.4740 

0.2461 

0.1686 

0.1882 

0.0228 

164 

2.0768 

0.2065 

0.1444 

0.1491 

0.0116 

168 

1.6524 

0.1949 

0.1027 

0.1413 

0.0086 

172 

1.2388 

0.1797 

0.0779 

0.1283 

0.0096 

176 

0.8439 

0.1576 

0.0453 

0.1000 

0.0050 

180 

0.4782 

0.1216 

0.0369 

0.0616 

0.0038 




SPRE 


s/d * 44 




r/R 

= 0.200 



6 

U 

u’ 

V 

V’ 

-UV 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2 /sec 2 

4 

0.3218 

0.1214 

0.0325 

0.0732 

0.0046 

8 

0.5833 

0.1298 

0.0233 

0.0869 

0.0021 

12 

0.8923 

0.1143 

0.0540 

0.0778 

0.0005 

16 

1.3195 

0.1234 

0.0843' 

0.0902 

0.0012 

20 

1.7432 

0.1054 

0.1108 

0.0799 

0.0014 

24 

2.1165 

0.1017 

0.1356 

0.0731 

0.0004 

28 

2.4421 

0.1052 

0.1751 

0.0843 

0.0009 

32 

2.8522 

0.1049 

0.1798 

0.0824 

0.0019 

36 

3.2515 

0.1219 

0.2000 

0.0948 

0.0066 

40 

3.5736 

0.0832 

0.2270 

0.0709 

0.0019 

44 

3.8768 

0.0984 

0.2572 

0.0947 

0.0056 

48 

4.2647 

0.0957 

0.2361 

0.1059 

0.0016 

52 

4.5458 

0.0932 

0.3048 

0.0939 

0.0064 

56 

4.7973 

0.1328 

0.3237 

0.1424 

0.0164 

60 

5.0154 

0.1470 

0.3313 

0.1588 

0.0215 

64 

5.2706 

0.0861 

0.3343 

0.0849 

0.0050 

68 

5.5352 

0.0501 

0.3746 

0.0497 

0.0004 

72 

5.6319 

0.1000 

0.3190 

0.1039 

0.0088 

76 

5.7749 

0.0711 

0.3408 

0.0731 

0.0042 

80 

5.9385 

0.0685 

0.3451 

0.0661 

0.0035 

84 

6.0947 

0.0611 

0.3558 

0.0630 

0.0032 

88 

6.1608 

0.1058 

0.3795 

0.1090 

0.0110 

92 

6.2119 

0.1235 

0.3697 

0.1335 

0.0147 

96 

6.2149 

0.1487 

0.3599 

0.1450 

0.0166 

98 

6.1963 

0.1532 

0.3512 

0.1535 

0.0141 

100 

6.2010 

0.2004 

0.3370 

0.1685 

0.0183 


95 



6 

u 

u’ 

V 

V’ 

-CPv’ 

deg. 

m/sec 

m/sec 

m/sec 

m/sec 

m 2 /sec 2 

102 

6.2352 

0.2600 

0.3406 

0.1930 

0.0241 

104 

6.4041 

0.3608 

0.3786 

0.2667 

0.0368 

106 

6.4804 

0.3351 

0.3592 

0.2978 

0.0343 

108 

6.0446 

0.3795 

0.3513 

0.2665 

0 . 0355 

110 

5.8585 

0.2963 

0.3440 

0.2228 

0.0129 

112 

5.7088 

0.2972 

0.3394 

0.2234 

0.0282 

114 

5.6487 

0.2578 

0.3531 

0.2041 

0.0101 

116 

5.6085 

0.2823 

0.3437 

0.2206 

0.0323 

120 

5.4756 

0.2825 

0.2949 

0.2258 

0.0260 

124 

5.2777 

0.2753 

0.3206 

0.1828 

0.0213 

128 

5.0670 

0.2732 

0.3307 

0.2191 

0.0275 

132 

4.8251 

0.2567 

0.3026 

0.2376 

0.0294 

136 

4.6104 

0.2517 

0.2683 

0.1895 

0.0226 

140 

4.2676 

0.2449 

0.2233 

0.1848 

0.0136 

144 

3.9821 

0.2608 

0.2402 

0.2007 

0.0157 

148 

3.6069 

0.2522 

0.1975 

0.1909 

0.0226 

152 

3.2497 

0.2246 

0.1864 

0.1701 

0.0148 

156 

2.9425 

0.2000 

0.1871 

0.1963 

0.0144 

160 

2.5362 

0.2062 

0.1515 

0.1625 

0.0096 

164 

2.1672 

0.2132 

0.1484 

0.1612 

0.0112 

168 

1 . 7292 

0.1946 

0 . 0860 

0.1311 

0.0087 

172 

1.3276 

0.1736 

0.0847 

0.1218 

0.0095 

176 

0.9160 

0.1407 

0.0504 

0.0934 

0.0022 

180 

0.5112 

0.1200 

0.0324 

0.0633 

0.0025 



SPRE 


s/d = 44 



h 


if 


r/R = 0.000 


e 

u 

u’ 

deg. 

m/sec 

m/sec 

4 

0.3839 

0.1349 

8 

0.6103 

0.1261 

12 

0.8879 

0.1053 

16 

1.2943 

0.1036 

20 

1.7137 

0.1019 

24 

2.0703 

0.1117 

28 

2.4149 

0.1082 

32 

2.8266 

0.0890 

36 

3.2417 

0.1077 

40 

3.5675 

0.0928 


V 

V' 

-uV 

m/sec 

m/sec 

m 2 /sec 2 

0.0627 

0.0720 

0.0057 

0.0546 

0.0854 

0.0042 

0.0674 

0.0825 

0.0014 

0.0970 

0.0940 

0.0023 

0.1288 

0.0889 

0.0031 

0.1373 

0.0920 

0.0038 

0.1388 

0.0883 

0.0038 

0.1837 

0.0845 

0.0023 

0.2113 

0.0964 

0.0065 

0.2212 

0.0861 

0.0040 
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e 

ii 

U’ 

V 

V 

-uV 

deg . 

m/sec 

m/sec 

m/sec 

m/sec 

m ^/ sec ^ 

44 

3.8608 

0.0822 

0.2443 

0.0774 

0.0033 

48 

4.2567 

0.0905 

0.2126 

0.0933 

0.0017 

52 

4.5250 

0.1162 

0.2763 

0.1145 

0.0106 

£6 

4.7839 

0.0997 

0.3043 

0.1090 

0.0082 

60 

5.0038 

0.0617 

0.3078 

0.0580 

0.0024 

64 

5.2806 

0.1253 

0.3439 

0.1349 

0.0146 

68 

5.5157 

0.1079 

0.3568 

0.1236 

0.0116 

72 

5.6445 

0.1084 

0.3154 

0.1105 

0.0110 

76 

5.7890 

0.0822 

0.3354 

0.0832 

0.0053 

80 

5.9464 

0.1384 

0.3315 

0.1488 

0.0188 

84 

6.0788 

0.0946 

0.3368 

0.0953 

0.0086 

88 

6.1579 

0.1264 

0.3538 

0.1344 

0.0159 

92 

6.1951 

0.0967 

0.3322 

0.0955 

0.0070 

96 

6.2159 

0.1457 

0.3407 

0.1430 

0.0148 

98 

6.2116 

0.1568 

0.3357 

0.1380 

0.0114 

100 

6.2340 

0.1790 

0.3510 

0.1723 

0.0127 

102 

6.2778 

0.2720 

0.3592 

0.2363 

0.0216 

104 

6.5112 

0.4084 

0.3821 

0.3192 

0.0664 

106 

6.5550 

0.3946 

0.3594 

0.2485 

0.0029 

108 

6.2652 

0.3738 

0.3288 

0.2531 

0.0285 

110 

5.9013 

0.2955 

0.2964 

0.2094 

0.0077 

112 

5.7703 

0.2838 

0.3259 

0.2064 

0.0062 

114 

5.7274 

0.2442 

0.3221 

0.2104 

- 0.0012 

116 

5.6787 

0.2510 

0.3289 

0.2202 

0.0018 

120 

5.5319 

0.2705 

0.3210 

0.2043 

0.0054 

124 

5.3399 

0.2302 

0.3212 

0.1922 

0.0043 

128 

5.1066 

0.2464 

0.2975 

0.2122 

0.0041 

132 

4.8893 

0.2452 

0.2719 

0.2035 

0.0154 

136 

4.5900 

0.2266 

0.2309 

0.1790 

0.0125 

140 

4.3290 

0.2341 

0.2165 

0.1891 

0.0140 

144 

4.0434 

0.2199 

0.1938 

0.1919 

0.0047 

148 

3.6807 

0.2092 

0.2216 

0.1866 

0.0058 

152 

3.3379 

0.2166 

0.1729 

0.1783 

0.0068 

156 

2.9843 

0.1988 

0.1791 

0.1661 

0.0052 

160 

2.5907 

0.1915 

0.1396 

0.1525 

0.0094 

164 

2.1900 

0.1907 

0.1173 

0.1423 

0.0020 

168 

1.7311 

0.1866 

0.1025 

0.1279 

0.0021 

172 

1.3773 

0.1572 

0.0756 

0.1238 

0.0018 

176 

0.9349 

0.1327 

0.0420 

0.1049 

0.0022 

180 

0.5284 

0.1089 

0.0245 

0.0662 

0.0017 
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Figure 23 : Streamwise velocity fluctuation at s/d * 44 

(smoothed) 
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Figure 24: Radial velocity fluctuation at s/d ■ 44 

(smoothed) 
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Figure 25: Reynolds shear stress at s/d = 44 

(not smoothed) 
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PROCESSED DATA 


I. Bulk-mean velocity, u m , friction velocity, u„ skin friction coefficient, q, and 
Couette flow model versus crank position, 6 


Note: The symbol in the "model" column indicates which of the Couette 
flow models, laminar (I) or turbulent (t), was used in processing. 


S/d = 0.33 


e(°) 

u m (m/sec) 

20 

1.518 

30 

2.303 

40 

3.001 

50 

3.703 

60 

4.130 

70 

4.605 

80 

4.812 

90 

4.808 

100 

4.746 

110 

4.533 

120 

4.186 

130 

3.732 

140 

3.164 

150 

2.457 


u. (m/sec) c { 

0.138 0.01653 

0.158 0.00941 

0.182 0.00735 

0.215 0.00674 

0.235 0.00648 

0.242 0.00552 

0.252 0.00548 

0.248 0.00532 

0.242 0.00520 

0.233 0.00528 

0.215 0.00528 

0.198 0.00563 

0.167 0.00557 

0.134 0.00595 


model 

I 

t 

t 

t 

t 


s/d = 16 


e(°) 

u m (m/sec) 

u. (m/sec) 

Cf 

20 

1.539 

0.140 

0.01656 

30 

2.387 

0.187 

0.01228 

40 

3.061 

0.189 

0.00762 

50 

3.701 

0.198 

0.00573 

60 

4.131 

0.200 

0.00469 

70 

4.511 

0.241 

0.00571 

80 

4.741 

0.282 

0.00708 

90 

4.806 

0.294 

0.00749 

100 

4.826 

0.278 

0.00664 

110 

4.597 

0.210 

0.00417 

120 

4.256 

0.169 

0.00315 

130 

3.791 

0.139 

0.00269 

140 

3.279 

0.090 

0.00151 

150 

2.607 

0.087 

0.00223 


model 


t 

t 

t 

t 

t 


I 

I 
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s/d = 30 


0(°) 

u m (m/sec) 

20 

1.479 

30 

2.201 

40 

2.878 

50 

3.465 

60 

3.886 

70 

4.246 

80 

4.441 

90 

4.518 

100 

4.548 

110 

4.321 

120 

4.080 

130 

3.667 

140 

3.176 

150 

2.517 

160 

1.849 

170 

0.995 


u. (m/sec) Cf 

0.140 0.01792 

0.156 0.01005 

0.175 0.00740 

0.190 0.00602 

0.193 0.00493 

0.193 0.00413 

0.189 0.00362 

0.318 0.00991 

0.315 0.00959 

0.318 0.01083 

0.290 0.01010 

0.248 0.00915 

0.200 0.00793 

0.142 0.00637 

0.100 0.00585 

0.051 0.00525 


model 


t 

t 

t 

t 

t 

t 

t 

t 

t 



s/d = 44 


9 (°) 

u m (m/sec) 

20 

1.578 

30 

2.295 

40 

2.962 

50 

3.569 

60 

3.981 

70 

4.358 

80 

4.567 

90 

4.631 

100 

4.624 

110 

4.445 

120 

4.142 

130 

3.708 

140 

3.185 

150 

2.511 

160 

1.755 

170 

0.891 


u. (m/sec) Cf 

0.147 0.01735 

0.170 0.01097 

0.180 0.00739 

0.189 0.00561 

0.192 0.00465 

0.200 0.00421 

0.195 0.00365 

0.188 0.00330 

0.182 0.00310 

0.390 0.01540 

0.298 0.01035 

0.267 0.01037 

0.220 0.00954 

0.156 0.00772 

0.103 0.00689 

0.040 0.00403 


model 


t 

t 

t 

t 

t 

t 

t 




II. Processed (6, u + , y + ) Data: Experiment and Couette Flow Model 


102 



s/d=0.33 Experiment 


20 ° 


y + 

U + 

1.31 

0.78 

1.81 

0.96 

2.30 

1.12 

2.92 

1.77 

3.54 

2.34 

4.78 

4.21 

6.02 

5.36 

9.74 

7.98 

13.46 

9.42 

25.85 

11.54 

50.63 

11.74 

75.41 

11.58 

100.19 

11.30 

124.97 

11.25 

149.75 

11.12 

186. 92 

11.21 

30 

0 

y + 

U + 

1.50 

1.17 

2.07 

1.61 

2.64 

1.96 

3.35 

3.08 

4.06 

3.75 

5.48 

5.63 

6.89 

7.04 

11 . 15 

10.13 

15.41 

12.08 

29.59 

14.60 

57.96 

15.26 

86.34 

15.34 

114.71 

15.28 

143.08 

15.32 

171.45 

15.29 

214.01 

15.35 


40° 


y + 

U + 

1.73 

1.65 

2.39 

2.30 

3.04 

2.71 

3.86 

4.03 

4.67 

4.68 

6.31 

6.80 

7.94 

8.34 

12.84 

12.04 

17.75 

13.97 

34.09 

16.56 

66.77 

17.05 

99.45 

17.16 

132.13 

17.01 

164.81 

17.03 

197.50 

17.11 

246.52 

17.07 

50 

0 

y + 

U + 

2.05 

2.13 

2.82 

2.96 

3.59 

3.33 

4.56 

4.56 

5.52 

5.39 

7.45 

7.72 

9.38 

9.12 

15.17 

12.79 

20.96 

14.88 

40.27 

17.13 

78.88 

17.36 

117.48 

17.44 

156.09 

17.30 

194.70 

17.26 

233.31 

17 . 27 

291.22 

17.32 


60° 


y + 

U + 

2.24 

2.29 

3.08 

3.12 

3.92 

3.63 

4.96 

4.83 

6.03 

5.52 

8.14 

7.78 

10.25 

9.57 

16.58 

13.22 

22.91 

15.34 

44.01 

17.57 

86.21 

17.73 

128.41 

17.71 

170.61 

17.56 

212.81 

17.52 

255.01 

17.51 

318.31 

17.58 

70 

0 

y + 

U + 

2.30 

2.63 

3.17 

3.44 

4.04 

3.94 

5.13 

5.19 

6.21 

6.16 

8.39 

8.48 

10.56 

10.33 

17.08 

14.45 

23 . 60 

16.69 

45.32 

18.77 

88.78 

18.81 

132.24 

18.77 

175.69 

18.60 

219.15 

18.54 

262.60 

18.51 

327.79 

18.57 
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80 ° 


100 ° 


120 ° 


y + 

U + 

2.40 

2.71 

3.30 

3.54 

• 4.21 

4.11 

5.34 

5.48 

6.47 

6.28 

8.73 ' 

8.80 

11.00 

10.54 

17.78 

14.89 

24.57 

17.19 

47.20 

18.87 

92.45 

18.63 

137.70 

18.81 

182.95 

18.63 

228.20 

18.58 

273.46 

18.58 

341 . 33 

18.58 


90 ° 


y + 


iT* 


2 . 

36 

2 . 

66 

3 , 

. 25 

3 . 

38 

4 . 

14 

3 . 

96 

5 , 

.25 

5 . 

26 

6 . 

37 

6 . 

07 

8 , 

. 59 

8 . 

43 

10 . 

82 

10 . 

35 

17 , 

.50 

14 . 

66 

24 . 

18 

17 . 

28 

46 . 

.45 

19 . 

38 

90 . 

98 

19 . 

31 

135 . 

,52 

19 . 

28 

180 . 

05 

19 . 

09 

224 . 

.58 

19 , 

02 

269 . 

12 

19 . 

02 

335 , 

.92 

19 . 

04 


y + 

U + 

y + 

U + 

2.30 

2.71 

2.05 

2.09 

3.17 

3.31 

2.82 

3.05 

4.04 

3.87 

3.59 

3.47 

5.13 

5.14 

4.56 

4.69 

6.21 

6.01 

5.52 

5.43 

8.39 

8.34 

7.45 

7.68 

10.56 

10.20 

9.38 

9.53 

17.08 

14.70 

15.17 

14.10 

23.60 

17.38 

20.96 

16.99 

45.32 

19.76 

40.27 

19.97 

88.78 

19.69 

78.88 

19.94 

132.24 

19.66 

117.48 

19.90 

175.69 

19.46 

156.09 

19.70 

219 . 1-5 

19.47 

194.70 

19.67 

262.60 

19.47 

233.31 

19.66 

327.79 

19.46 

291.22 

19.77 


110 

0 

130° 


y + 

u + 

y + 

U + 

2.22 

2.40 

1.88 

1.74 

3.05 

3.13 

2.60 

2.53 

3. 89 

3.66 

3.31 

3.09 

4.94 

4.89 

4.20 

4.16 

5.98 

5.73 

5.08 

4.94 

8.08 

8.02 

6.86 

7.08 

10.17 

9.89 

8.64 

8.82 

16.44 

14.26 

13.97 

13.33 

22.72 

17.09 

19.31 

16.45 

43.64 

19.75 

37.08 

19.60 

85.48 

19.68 

72.64 

19.60 

127.32 

19.71 

108.19 

19.55 

169.16 

19.47 

143.75 

19.38 

211.00 

19.54 

179.30 

19.32 

252.84 

19.53 

214.86 

19.32 

315.60 

19.43 

268.19 

19.40 
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s/d*0.33 Model 


30 ° 


140 

0 

O 

O 

CM 


y + 

u + 

y + 

u + 

1.59 

1.33 

1.00 

0.98 

2.19 

1.80 

2.00 

1.91 

2.79 

2.27 

3.00 

2.80 

3.54 

3.70 

4.00 

3.65 

4.29 

4.29 

5.00 

4.45 

5.79 

6.39 

6.00 

5.21 

7.29 

8.19 

7.00 

5.92 

11.79 

12.69 

8.00 

6.59 

16.28 

16.09 

9.00 

7.21 

31.28 

20.05 

10.00 

7.79 

61.27 

20.17 

11.00 

8. 33 

91.25 

20.10 

12.00 

8.82 

121.24 

19.90 

13.00 

9.27 

151.23 

19.77 

14.00 

9.68 

181.22 

19.78 

15.00 

10.04 

226.20 

19.89 




150 

0 

y + 

U + 

1.28 

0.89 

1.76 

1.07 

2.24 

1.25 

2.84 

2.09 

3.44 

2.80 

4.64 

5.12 

5.85 

6.77 

9.46 

11.32 

13.07 

14.87 

25.10 

19.69 

49.16 

20.01 

73.22 

19.90 

97.28 

19.79 

121.35 

19.63 

145.41 

19.63 

181.50 

19.83 


y + 

U + 

1.0 

1.00 

2.0 

2.00 

3.0 

3.00 

4.0 

4.00 

5.0 

4.99 

6.0 

5.99 

7.0 

6.97 

8.0 

7.95 

9.0 

8.91 

10.0 

9.85 

11.0 

10.76 

12.0 

11.65 

13.0 

12.50 

14.0 

13.32 

15.0 

14.10 

16.0 

14.85 

17.0 

15.55 

18.0 

16.22 

19.0 

16.86 

20.0 

17.45 

21.0 

18.02 

22.0 

18.55 

23.0 

19.06 

24.0 

19.53 

25.0 

19.98 

26.0 

20.41 

27.0 

20. 82 

28.0 

21.20 

29.0 

21.56 

30.0 

21.91 

31.0 

22.24 

32.0 

22.55 

33.0 

22.85 

34.0 

23.13 

35.0 

23.40 

36.0 

23.66 

37.0 

23.91 

38.0 

24.15 

39.0 

24.38 

40.0 

24.59 

41.0 

24.80 

42.0 

25.00 

43.0 

25.20 

44.0 

25.38 

45.0 

25.56 

46.0 

25.74 

47.0 

25.90 

48.0 

26.06 

49.0 

26.22 

50.0 

26.37 
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40 ° 


50 ° 


60 ° 


y + 


y + 


if 


if 


1.0 

1.00 

2.0 

2.00 

3.0 

3.00 

4.0 

3.99 

5.0 

4.96 

6.0 

5.90 

7.0 

6.81 

8.0 

7.66 

9.0 

8.46 

10.0 

9.19 

11.0 

9.86 

12.0 

10.47 

13.0 

11.03 

14.0 

11.54 

15.0 

12.01 

16.0 

12.44 

17.0 

12.83 

18.0 

13.19 

19.0 

13.52 

20.0 

13.83 

21.0 

14.12 

22.0 

14.39 

23.0 

14.63 

24.0 

14.87 

25.0 

15.09 

26.0 

15.29 

27.0 

15.48 

28.0 

15.67 

29.0 

15.84 

30.0 

16.00 

31.0 

16.16 

32.0 

16.31 

33.0 

16.45 

34.0 

16.58 

35.0 

16.71 

36.0 

16.83 

37.0 

16.95 

38.0 

17.06 

39.0 

17.17 

40.0 

17.27 

41.0 

17.37 

42.0 

17.47 

43.0 

17.56 

44.0 

17.65 

45.0 

17.73 

46.0 

17.82 

47.0 

17.90 

48.0 

17.97 

49.0 

18.05 

50.0 

18.12 


1.0 

1.00 

2.0 

2.00 

3.0 

2.99 

4.0 

3.97 

5.0 

4.92 

6.0 

5.82 

7.0 

6.66 

8.0 

7.43 

9.0 

8.13 

10.0 

8.75 

11.0 

9.32 

12.0 

9.82 

13.0 

10.28 

14.0 

10.69 

15.0 

11.06 

16.0 

11.40 

17.0 

11.72 

18.0 

12.00 

19.0 

12.27 

20.0 

12.51 

21.0 

12.73 

22.0 

12.95 

23.0 

13.14 

24.0 

13.33 

25.0 

13.50 

26.0 

13.66 

27.0 

13.81 

28.0 

13.96 

29.0 

14.10 

30.0 

14.23 

31.0 

14.35 

32.0 

14.47 

33.0 

14.58 

34.0 

14.69 

35.0 

14.79 

36.0 

14.89 

37.0 

14.99 

38.0 

15.08 

39.0 

15.16 

40.0 

15.25 

41.0 

15.33 

42.0 

15.41 

43.0 

15.49 

44.0 

15.56 

45.0 

15.63 

46.0 

15.70 

47.0 

15.77 

48.0 

15.83 

49.0 

15.89 

50.0 

15.96 


1.0 

1.00 

2.0 

2.00 

3.0 

2.99 

4.0 

3.97 

5.0 

4.90 

6.0 

5.79 

7.0 

6.60 

8.0 

7.34 

9.0 

8.00 
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CO 


y + 

U + 

y + 

u + 

y + 

u + 

1.00 

1.01 

1.00 

1.08 

1.03 

1.03 

2.00 

2.06 

2.00 

2.32 

1.89 

1.50 

3.00 

3.13 

3.00 

3.71 

3.04 

2.72 

4.00 

4.23 

4.00 

5.27 

3.61 

3.69 

5.00 

5.36 

5.00 

6.98 

5.04 

5.15 

6.00 

6.52 

6.00 

8.85 

6.48 

6.41 

7.00 

7.71 

7.00 

10.87 

10.77 

9.45 

8.00 

8.92 

8.00 

13.06 

15.07 

11.53 

9.00 

10.17 

9.00 

15.40 

29.40 

14.97 

10.00 

11.44 

10.00 

17.91 

58.05 

15.96 

11.00 

12.74 

11.00 

20.57 

86.70 

15.81 

12.00 

14.07 

12.00 

23.39 

115.36 

15.69 

13.00 

15.43 

13.00 

26.36 

144.01 

15.42 

14.00 

16.82 

14.00 

29.50 

172.66 

15.44 

15.00 

18.24 

15.00 

32.79 

215.64 

15.36 
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60 ° 


80 ° 


40 ° 


y + 

U + 

y + 

U + 

y + 

U + 

1.16 

1.14 

1.28 

1.32 

1.84 

1.30 

2.12 

1.83 

2.34 

2.20 

2.88 

2.14 

3.41 

3.31 

3.76 

3.64 

4.27 

3.63 

4.05 

4.01 

4.47 

4.34 

4.96 

4.30 

5.66 

5.52 

6.24 

5.93 

6.70 

5.92 

7.26 

6.85 

8.01 

7.38 

8.44 

7.36 

12.09 

10.15 

13.33 

10.98 

13.64 

11.10 

16.91 

12.60 

18.65 

13.73 

18.85 

14.24 

32.98 

16.90 

36.37 

19.50 

36.21 

21.72 

65.12 

18.67 

71.82 

23.08 

70.92 

27.25 

97.26 

18.77 

107.27 

23.72 

105.63 

28.36 

129.40 

18.74 

142.72 

23.85 

140.35 

28.76 

161.55 

18.54 

178.16 

23.72 

175.06 

28.68 

193.69 

18.56 

213.61 

23.80 

209.77 

28.77 

241 .90 

ift 49 

266.78 

23.79 

261.84 

28.80 

50 ° 


70 

0 

90 

0 

y + 

U + 

y + 

u + 

y + 

u + 

1.26 

1.29 

1.28 

1.34 

2.10 

2.45 

2.30 

2.13 

2.34 

2.22 

3.86 

3.82 

3.70 

3.59 

3.76 

3.67 

6.19 

5.11 

4.40 

4.26 

4.47 

4.39 

7.36 

5.85 

6.14 

5.81 

6.24 

6.00 

10.28 

7.40 

7.89 

7.22 

8.01 

7.48 

13.20 

8.38 

13.12 

10.60 

13.33 

11.15 

21.96 

10.34 

18.36 

13.22 

18.65 

14.13 

30.72 

11.28 

35.80 

18.22 

36.37 

20.62 

59.93 

12.99 

70.70 

20.82 

71.82 

25.35 

118.33 

14.63 

105.60 

21.10 

107.27 

26. 30 

176.74 

15.92 

140.50 

21.14 

142.72 

26.61 

235.15 

16.90 

175.39 

21.01 

178.16 

26.45 

293.55 

17.35 

210.29 

21.05 

213.61 

26.58 

351.96 

17.96 

262.64 

21.00 

266.78 

26.65 

439.57 

18.20 
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100 ° 


120 ° 


140 ° 


y + 

U + 

y + 

U + 

y + 

U + 

2.08 

2.47 

1.92 

2.23 

1.32 

1.65 

3.82 

3.74 

3.52 

3.35 

2.42 

2.51 

6.13 

5.18 

5.65 

4.65 

3.89 

3.86 

7.29 

6.15 

6.71 

5.68 

4.63 

4.60 

10.18 

7.56 

9.37 

7.19 

6.47 

6.24 

13.08 

8.90 

12.04 

8.26 

8.30 

7.67 

21.75 

11.06 

20.03 

10.39 

13.81 

10.16 

30.43 

12.20 

28.02 

11.51 

19.32 

11.75 

59.36 

13.63 

54.65 

13.23 

37.69 

14.35 

117.22 

15.04 

107 . 91 - 

14.55 

74.42 

16.72 

175.07 

16.01 

161.18 

15.65 

111.16 

18.54 

232.93 

16.75 

214.44 

16.53 

147.89 

19.51 

290.78 

17.08 

267.71 

16.99 

184.62 

19.82 

348.64 

17.36 

320.97 

17.44 

221.36 

19.99 

435.42 

17.46 

400.87 

17.51 

276.46 

19.56 

110 

0 

130 ° 

150 

0 

y + 

U + 

y + 

U + 

y + 

U + 

2.10 

2.29 

1.64 

1.93 

0.94 

1.04 

3.86 

3.46 

3.01 

3.12 

1.72 

1.56 

6.19 

4.90 

4.83 

4.48 

2.76 

2.75 

7.36 

5.55 

5.74 

5.44 

3.29 

3.41 

10.28 

7.07 

8.02 

6.94 

4.59 

4.61 

13.20 

8.38 

10.29 

8.19 

5.89 

6.20 

21.96 

10.28 

17.13 

10.62 

9.81 

8.97 

30.72 

11.20 

23.96 

11.83 

13.72 

10.55 

59.93 

12.91 

46.73 

13.73 

26.76 

14.75 

118.33 

14.19 

92.28 

15.37 

52.84 

19.06 

176.74 

15.02 

137.83 

16.53 

78.92 

21.75 

235.15 

15.71 

183.39 

17.64 

105.00 

23.19 

293.55 

16.17 

228.93 

18.10 

131.08 

23.54 

351.96 

16.47 

274.49 

18.50 

157.16 

23.81 

439.57 

16.76 

342,81 

18.44 

196.29 

22.98 
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s/d=30 Model 

20 ° 


1.00 

0.98 

2.00 

1.92 

3.00 

2.81 

4.00 

3.67 

5.00 

4.46 

6.00 

5.26 

7.00 

5.99 

8.00 

6.68 

9.00 

7.33 

10.00 

7.93 

11.00 

8.50 

12.00 

9.02 

13.00 

9.51 

14.00 

9.95 

15.00 

10.35 

o 

O 

CO 

y + 

U + 

1.00 

0.99 

2/00 

1.94 

3.00 

2.88 

4.00 

3.78 

5.00 

4.66 

6.00 

5.50 

7.00 

6.33 

8.00 

7.12 

9.00 

7.89 

10.00 

8.62 

11.00 

9.33 

12.00 

10.02 

13.00 

10.67 

14.00 

11.30 

15.00 

11.90 


40° 


y + 

u + 

1.00 

0.99 

2.00 

1.97 

3.00 

2.92 

4.00 

3.86 

5.00 

4.78 

6.00 

5.69 

7.00 

6.58 

8.00 

7.45 

9 . 00 . 

8.30 

10.00 

9.14 

11.00 

9.96 

12.00 

10.76 

13.00 

11.54 

14.00 

12.31 

15.00 

13.06 


50° 


y + 

U + 

1.00 

0.99 

2.00 

1.98 

3.00 

2.95 

4.00 

3.91 

5.00 

4.86 

6.00 

5.80 

7.00 

6.72 

8.00 

7.64 

9.00 

8.54 

10.00 

9.43 

11.00 

10.32 

12.00 

11.19 

13.00 

12.04 

14.00 

12.89 

15.00 

13.73 


60° 


1.00 

1.00 

2.00 

1.98 

3.00 

2.96 

4.00 

3.93 

5.00 

4.90 

6.00 

5.85 

7.00 

6.79 

8.00 

7.73 

9.00 

8.66 

10.00 

9.58 

11.00 

10.49 

12.00 

11.40 

13.00 

12.29 

14.00 

13.18 

15.00 

14.06 

70 

0 

y + 

u + 

1.00 

1.00 

2.00 

1.99 

3.00 

2.97 

4.00 

3.95 

5.00 

4.93 

6.00 

5.90 

7.00 

6.86 

8.00 

7.82 

9.00 

8.77 

10.00 

9.71 

11.00 

10.65 

12.00 

11.59 

13.00 

12.51 

14.00 

13.44 

15.00 

14.35 
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90 ° 


100 ° 


80 ° 

y+ U + 

1.00 1.00 

2.00 1.99 

3.00 2.99 

4.00 3.98 

5.00 4.96 

6.00 5.94 

7 .DO 6.92 

8.00 7.90 

9.00 8.87 

10.00 9.84 

11.00 10.81 

12.00 11.7-8 

13.00 12.74 

14.00 13.70 

15.00 14.65 


y + 

U + 

1.0 

1.00 

2.0 

2.00 

3.0 

2.99 

4.0 

3.95 

5.0 

4.88 

6.0 

5.73 

7.0 

6.51 

8.0 

7.20 

9.0 

7.82 

10.0 

8.36 

11.0 

8.85 

12.0 

9.28 

13.0 

9.67 

14.0 

10.02 

15.0 

10.34 

16.0 

10.62 

17.0 

10.89 

18.0 

11.13 

19.0 

11.35 

20.0 

11.56 

21.0 

11.75 

22.0 

11.93 

23.0 

12.09 

24.0 

12.25 

25.0 

12.40 

26.0 

12.54 

27.0 

12.67 

. 28.0 

12.79 

29.0 

12.91 

30.0 

13.02 

31.0 

13.13 

32.0 

13.23 

33.0 

13.33 

34.0 

13.42 

35.0 

13.51 

36.0 

13.60 

37.0 

13.68 

38.0 

13.76 

39.0 

13.84 

40.0 

13.92 

41.0 

13.99 

42.0 

14.06 

43.0 

14.13 

44.0 

14.19 

45.0 

14.26 

46.0 

14.32 

47.0 

14.36 

48.0 

14.44 

49.0 

14.49 

50.0 

14.55 


y + 

U + 

1.0 

1.00 

2.0 

2.00 

3.0 

2.99 

4.0 

3.95 

5.0 

4.87 

6.0 

5.72 

7.0 

6.50 

8.0 

7.19 

9.0 

7.80 

10.0 

8.34 

11.0 

8.83 

12.0 

9.26 

13.0 

9.64 

14.0 

9.99 

15.0 

10.30 

16.0 

10.59 

17.0 

10.85 

18.0 

11.09 

19.0 

11.31 

20.0 

11.51 

21.0 

11.70 

22.0 

11.88 

23.0 

12.04 

24.0 

12.20 

25.0 

12.35 

26.0 

12.48 

27.0 

12.61 

28.0 

12.74 

29.0 

12.85 

30.0 

12.97 

31.0 

13.07 

32.0 

13.17 

33.0 

13.27 

34.0 

13.37 

35.0 

13.45 

36.0 

13.54 

37.0 

13.62 

38.0 

13.70 

39.0 

13.78 

40.0 

13.85 

41.0 

13.93 

42.0 

14.00 

43.0 

14.06 

44.0 

14.13 

45.0 

14.19 

46.0 

14.25 

47.0 

14.31 

48.0 

14.37 

49.0 

14.43 

50.0 

14.48 
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r 



120 ° 


130 ° 


110 ° 


y + 

U + 

y + 

u + 

y + 

U + 

1.0 

1.00 

1.0 

1.00 

1.0 

1.00 

2.0 

2.00 

2.0 

2.00 

2.0 

2.00 

3.0 

2.99 

3.0 

2.99 

3.0 

2.99 

4.0 

3.95 

4.0 

3.95 

4.0 

3.95 

5.0 

4.87 

5.0 

4.86 

5.0 

4.85 

6.0 

5.72 

6.0 

5.71 

6.0 

5.69 

7.0 

6.49 

7.0 

6.47 

7.0 

6.44 

8.0 

7.18 

8.0 

7.15 

8.0 

7.11 

9.0 

7.78 

9.0 

7.76 

9.0 

7.69 

10.0 

8.32 

10.0 

8.29 

10.0 

8.21 

11.0 

8.80 

11.0 

8.76 

11.0 

8.67 

12.0 

9.23 

12.0 

9.18 

12.0 

9.08 

13.0 

9.61 

13.0 

9.56 

13.0 

9.45 

14.0 

9.96 

14.0 

9.90 

14.0 

9.78 

15.0 

10.27 

15.0 

10.21 

15.0 

10.08 

16.0 

10.55 

16.0 

10.49 

16.0 

10.35 

17.0 

10.81 

17.0 

10.74 

17.0 

10.60 

18.0 

11.05 

18.0 

10.98 

18.0 

10.82 

19.0 

11.27 

19.0 

11.19 

19.0 

11.03 

20.0 

11.47 

20.0 

11.39 

20.0 

11.23 

21.0 

11.66 

21.0 

11.58 

21.0 

11.41 

22.0 

11 . 83 

22.0 

11.75 

22.0 

11.58 

23.0 

12.00 

23.0 

11 . 91 

23.0 

11.74 

24.0 

12.15 

24.0 

12.07 

24.0 

11.88 

25.0 

12.30 

25.0 

12.21 

25.0 

12.02 

26.0 

12.44 

26.0 

12.34 

26.0 

12.16 

27.0 

12.56 

27.0 

12.47 

27.0 

12.28 

28.0 

12.69 

28.0 

12.59 

28.0 

12.40 

29.0 

12.80 

29.0 

12.71 

29.0 

12.51 

30.0 

12.92 

30.0 

12.82 

30.0 

12.62 

31.0 

13.02 

31.0 

12.92 

31.0 

12.72 

32.0 

13.12 

32.0 

13.02 

32.0 

12.82 

33.0 

13.22 

33.0 

13.12 

33.0 

12.91 

34.0 

13.31 

34.0 

13.21 

34.0 

13.00 

35.0 

13.40 

35.0 

13.30 

35.0 

13.09 

36.0 

13.49 

36.0 

13.38 

36.0 

13.17 

37.0 

13.57 

37.0 

13.47 

37.0 

13.25 

38.0 

13.65 

38.0 

13.54 

38.0 

13.33 

39.0 

13.73 

39.0 

13.62 

39.0 

13.40 

40.0 

13.80 

40.0 

13.69 

40.0 

13.48 

41.0 

13.87 

41.0 

13.77 

41.0 

13.55 

42.0 

13.94 

42.0 

13.83 

42.0 

13.61 

43.0 

14.01 

43.0 

13.90 

43.0 

13.68 

44.0 

14.07 

44.0 

13.97 

44.0 

13.74 

45.0 

14.14 

45.0 

14.03 

45.0 

13.80 

46.0 

14.20 

46.0 

14.09 

46.0 

13.86 

47.0 

14.26 

47.0 

14.15 

47.0 

13.92 

48.0 

14.31 

48.0 

14.21 

48.0 

13.98 

49.0 

14.37 

49.0 

14.26 

49.0 

14.03 

50.0 

14.43 

50.0 

14.32 

50.0 

14.09 
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140 ° 150 ° s / d =44 Experiment 


V 4 


u + ;i # 

y + 

1 

.0 

1.00 

1 . 0 

2 

.0 

2.00 

2 0 

3 

.0 

2.98 

3 0 

4 

.0 

3.93 

4 0 

5 

.0 

4.83 

T f V 

5 0 

6 

.0 

5.64 

6 . 0 

7 

.0 

6.36 

7.0 

8 

.0 

6.99 

8.0 

9 

.0 

7.55 

9.0 

10 

.0 

8.04 

10 0 

11 

.0 

8.47 

11 0 

12 

.0 

8.85 

11 i V 
12.0 

13 

.0 

9.20 

13.0 

14 

.0 

9.50 

14 0 

15 

.0 

9.78 

n i v 

15.0 

16 

.0 

10.04 

16.0 

17 

.0 

10.27 

17.0 

18 

.0 

10.48 

18 0 

19 

.0 

10.68 

19.0 

20 

.0 

10.86 

20 0 

21 

:0 

11.03 

21 . 0 

22 

.0 

11.19 

22 . 0 

23 , 

24 

,0 

.0 

11.34 

11.48 

23.0 
24 0 

25 , 

.0 

11.61 

25 0 

26 , 

.0 

11.74 

26 0 

27 , 

,0 

11.86 

27 . 0 

28 , 

,0 

11.97 

28.0 

29 . 

0 

12.07 

29 . 0 

30 . 

,0 

12.18 

30 0 

31 . 

0 

12.27 

31 . 0 

32 . 

0 

12.37 

32 0 

33 . 

0 

12.46 

33 0 

34 . 

0 

12.54 

34 . 0 

35 . 

0 

12.63 

35 .0 

36 . 

0 

12.71 

36 . 0 

37 . 

0 

12.78 

37.0 

38 . 

0 

12.86 

38.0 

39 . 

0 

12.93 

39.0 

40 . 

0 

13.00 

40.0 

41 . 

0 

13.07 

41.0 

42 . 

0 

13.13 

42.0 

43 . 

0 

13.19 

43.0 

44 . 

0 

13.25 

44.0 

45 . 

0 

13.31 

45.0 

46 . 

0 

13.37 

46.0 

47 . 

0 

13.43 

47.0 

48 . 

0 

13.48 

48.0 

49 . 

0 

13.54 

49.0 

50 . 

0 

13.59 

50.0 


20 ° 


1.00 

y 

U + 

2.00 

0.16 

0.97 

2.97 

0.43 

0.83 

3.88 

0.98 

0.84 

4.71 

1.53 

1.10 

5.44 

2.07 

1.21 

6.07 

3.44 

2.96 

6.61 

4.81 

4.68 

7.07 

13.01 

9.20 

7.48 

26.69 

11.63 

7.84 

54.04 

12.17 

8.16 

81.39 

11.94 

8.44 

108.74 

11.59 

8.70 

136.09 

11.08 

8.93 

163.44 

10.98 

9.14 

204.46 

11.31 

9.33 

9.51 

9.68 

CO 

o 

o 


9.83 

v + 

u + 

9.98 

10.11 

0.18 

0.98 

10.24 

0.50 

0.91 

10.36 

1.13 

1.02 

10.47 

1.76 

1.37 

10.58 

2.40 

1.59 

10.69 

3.98 

3.74 

10.78 

5.56 

5.17 

10.88 

15.05 

10.48 

10.97 

30.86 

14.23 

11.05 

62.49 

15.15 

11 . 14 

94.12 

15.21 

11 . 22 

125.75 

15.08 

11.30 

157.38 

14.79 

11.37 

189.01 

14.76 

11.44 

236.45 

14.88 

11.51 



11.58 

11.65 



11.71 

11.77 

11.83 

11.89 

11.95 

12.00 

12.06 

12.11 

12.16 

12.21 

12.26 
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40 ° 


60 ° 


80 ° 


y + 

U + 

0.19 

1.05 

0.53 

1.00 

1.20 

1.21 

1.87 

1.68 

2.54 

1.93 

4.21 

4.11 

5.89 

5.71 

15.93 

11.74 

32.68 

16.73 

66.17 

18.68 

99.66 

18.79 

133.15 

18.79 

166.64 

18.61 

200.13 

18.63 

250.36 

18.87 


y + 

U + 

0.21 

1.16 

0.56 

1.15 

1.28 

1.46 

1.99 

2.06 

2.71 

2.39 

4.49 

4.57 

6.28 

6.26 

17.00 

13.01 

34.86 

19.83 

70.58 

23.80 

106.30 

24.43 

142.02 

24.59 

177.75 

24.39 

213.47 

24.42 

267.05 

24.83 


y + 

U + 

0.21 

1.15 

0.57 

1.15 

1.30 
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13.89 

46.0 
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I. Data Acquisition Program Listings 


Note: All the programs were written in C and executed on a 
UNIX operating system. 


CROSS 

This is the main program for cross-wire data acquisition, adapted from 
the single-wire acquisition program, SINGLE, written by J. Seume 
(1988). It calls the subroutines ENTER_COND, SET_UP_VMX, and 
ACQUIREX. 

ENTER_COND 

This subroutine inputs the test conditions specific to the data set, 
including piston bore, pipe diameter, stroke, test section length, axial 
probe location, drive speed, and number of readings per cycle. 

SET_UP_VMX 

This subroutine sets up the NORLAND digital storage oscilloscope on 
the IEEE interface for data storage and transfer. 

ACQUIREX 

This subroutine acquires cross-wire anemometer data with the 
NORLAND, updates quantities for the calculation of streamwise and 
radial ensemble-averaged and fluctuating velocities, and velocity 
correlations, and stores them in a file. 

AIR_STATEX 

This subroutine is called by ACQUIREX and supplies ambient air 
conditions to the acquisition program. 
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II. Data Processing Program Listings 


PROCESSX 

This is the main program for the processing of cross-wire data into traces 
and profiles of both the streamwise and radial component of ensemble- 
averaged and rms-velocity fluctuations, and the Reynolds shear stress. 

VEL_REDTURB 

This data reduction program converts profiles of ensemble-averaged 
velocity into wall coordinates, iterating on the wall shear stress and 
y-offset to fit the data to the Couette flow model for turbulent-like flow, 
including the effect of pressure gradient. 

DUPDYP 

This subroutine is called by VEL_REDTURB and calculates the slope 
in wall coordinates based on the Van Driest mixing length model. 

VEL_REDLAM 

This data reduction program converts profiles of ensemble-averaged 
velocity into wall coordinates, iterating on the wall shear stress and 
y-offset to fit the data to the Couette flow model for laminar-like flow, 
including the effect of pressure gradient. 
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CROSS 


•include <stdio.h> 

•define void int 

/* definition of external variables .*/ 
int ib3; 

int mrad, lastrad, lastcycle, iuerr, irmserr; 
inf ndummy = 50; 

int abort, diagnosis, add.to.set, m.cycle, oldfile, old.file = 0; 
int no.inst; 

int m.out =0, n_out[20]; 

double ©stroke, ©bore, . ©di arc, ©length, ©axial, speed; 

double t.dry, t.wet, p.atm; 

int nread = 1, nlag = 0, mcycle = 0; 

char f ilename[30] ; 

char usage! ] = ‘'Usage: single [-a runid or -d or -© ©cycle or -n or -© ©.out n. 
out [1 . . .©.out] ]\n M ; 

©ain(argc, argv) 

/* Data acquisition main program, “cross", for cross wire anemometer 
measurements. G. Friedman, 8/90 */ 

/* The program is an adaptation of single. c, written by J. Seume for use 
with single wires */ 

int argc; 
char *a rgv[]; 

{ 

•include < string . h> 
int i ; 

extern int abort, diagnosis, add.to.set, m.cycle, mcycle; 
extern int no.inst; 
extern int ©.out, n_out[]; 
extern char filename!]; 

void set.up.vmx ( ) ; 
void enter.cond ( ) ; 
void acqui'rexC); 

/* setvbuf (stdout ,NULL,_20NBF, 1 ) ; */ 

/* Set default values. */ 
diagnosis = 0; 
add.to.set = 0;, 

©.cycle s 0; 
no.inst = 0; 

/* Read command line for control parameters. */ 
while(**++argv ss '-*) 

{--argc; 

switch! *++*argv ) 

{ 

case ’a’:, 

/♦Add to an already existing data set. */ 
add.to.set s 1 ; 

strcpy ( filename , “/usr/geof f /shwdata/" ) ; 
strcpy(Af ilename[19] , *++argv) ; 

--argc; 

break; 
case ' d* : 

/♦Print out diagnostic information. */ 
diagnosis = 1 ; 
break; 
ease ’m* : 

/* Set maximu© nuaber of cycles to be acquired 
to a value different fro© the default 
specified in acquire. c. */ 

©.cycle s 1 ; 

mcycle = atoi (*++argv) ; 

—argc; 
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} 


break; 

* n * : 

/* Do not access the A/D converter. */ 
no_inst = 1 ; 

— argc; 
break; 

/* Set maximum number of cycles to be acquired 
to a value different from the default 
specified in acquire. c. */ 
m_out = atoi(*++argv) ; 

printf ( "m_out - Xd > 9 => Choose ", ®_out); 
printf ( ''m_out <* 9 !\n“ )! 

) 


for(i s 1; i <= m_out; i++) { 

n_out [ i 3 = atoi(*++argv) ; „ 

if (diagnosis) printf ( n_out[*d] - *d\n , 

i, n_out [ i 3 ) • 

) 

—argc; 

break; 

default : 

printf ( M %s“ * usage); 
break; 

} 

} 


/% ******************************** */ 

/* Calls to the various subroutines */ 

/* Enter experittental conditions. */ 
enter_cond( ) ; 
if (abort) goto the_end; 

/* Set up A/D converter. */ 
if ( ! no_inst) set_up_vmx( ) ; 
if (abort) goto the_end; 

/* Acquire data and store them in file under 
directory /usr/geof f /shwdata */ 
acquirex( ) ; 

if (abort) goto the_end; 

/* Address for abort sequence. */ 
the.end: ; 
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ENTER.COND 


enter.condO 

/* Enter nominal test conditions. »/ 

•include <stdio.h> 

•include <math.h> 

•include <string.h> 

•define NSTROKE 6 
•define NBORE 4 
•define NDIAM 3 
•define NLENGTH 9 
•define NAXIAL 21 
•define IDLENGTH 10 
•define NDUMKY 50 
•define MCYCLE 100 

• define NO 16 ie-OW* nominal kinematic viscosity */ 


Add runs to an existing 
set of data. */ 


extern int abort, add_to_set; /* = 1 => 

extern int diagnosis; 
extern int old_file; 

extern int ®.cycle, File existed and will be updated. */ 

extern double msJrike, mbore. mdiam. mlength, maxial , speed; 

SKS Si !K? ! (readings ) by which TDC trigger 

extern char filename!]; 

FILE *storef ile ; 

,_ t i istroke, ibore, idiam, ilength, iaxial. ispeed, inerr; 
double’ Remax, Va, Ar. loverd, *overl. xeverd^, 5) . 

static double stroke[NSTROKE] - { 0 . 0^14 . 0 ,9 . 9^ • 90 , 2 70 . , 210 . ) ; 

iSif i ‘liSTb? Ihlci TOC trijd.r .iO» »«, IK •/ 

«*“* ioiSA" (6 0 » : »C.S.409.5.C), «/ 

iSi it int nlengths [NDIAM] [NLENGTH] = 

H0J, , .. 

{0,1, 2, 3. 4, 5, 6}, 

{0,7,6} 

dcubl. l.riCthtHLEHGTR] . «...«. .*. 

static double axial [NLENGTH] [NAXIAL] - 

/ {0 ♦ 0 ) * 

{0,1.5,3,6,12,24,30,36,45,48,51.36,54,57,56.5, 

{0 1 5 SV^l^O^Se i.36, 54.57.56.5. 
{0,1.5,3,6,12.24,30, , 

{0,1.5,3,6,12,24,30,36,48,51.36,54,57,58.5, 

72,96,108,114,117,118.5}, 

{0,1.5,3,6,12,24.30,36,48,51.36,54,57,68.6. 

63. 75 , 72 ,79. 5, 103. 5, 11 5. 5, 121. 5, 124. 5 
{0,2.125,4.25.8.5,17,25.5,29.75,34, 
42.5,51,55.25,67.375}, 
{0,2.125,4.25,8.5,17,25.5,29.75,34, 

el’T^SS I’.llO S;ill:0,123.25.125.375) 

Italic char duacy [KCWKYi ; /• duj.7 IT/ 

char runid[10], respt5}; 
char year[3]» ®onth[3]; 
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if (I add_to_set) { 


/* Set the maximum number of cycles to be acquired. */ 
if ( !nL.cycle ) mcycle = HCYCLE; 

/* Read run identification and check whether the corresponding 
file already exists. */ 
fortinerr = 1; inerr; ) { 

printf ("\nEnter run identification: \n\n ), 
printf ( "(Use the format mmddyyss where: \n ); 
printf (" mm = month, dd = day, yy = 
printf (" and ss = a sequence number of the day s ) , 
printf (" runs)\n"); 
scanf ("Xs", runid); 


printf ( "mm = XcXc 
printf ("dd s XcXc 
printf ( "yy s XcXc 


, runid[0], runidtl]); 

, runid[2), runidt3]); 

pnnwi rx » -w-w , runid[4], runid[5D)j 

printf ("ss = Xc*c\n ** , runrd[6], runid[7]), 

strcpy (filename , "/usr/geof f /shwdata/ ) ; 
strcpy (fitfilenamet 19] • runid) ; 

printf (" The filename is *%s'\n\n , filename), 
ctorefile s f open ( f ilename , M r+ )> 

if (storefile^^NULL)^ did not exist but may now 

printf ("be created. \n" ) ; 
oldfile =0;} 

else {p r i D tf (" This file exists and data may be added. \n") 
oldfile =1;} „ 4 

printf C'\n Entry correct? (y or n)\n ); 
scanf ( "Xs" , resp); 

if (resp[0] :: *y’ !! resp[0] == Y ) 

{inerr = 0; } 

else if (resp[0) == ’n’ ! resp[0] == H ) 

{inerr = 1;} 

* l8e {printf (" Respond with y, Y for 'yes* “); 

printf ("or with n, N for 'no* next time.\n );} 

} 

if ( ! oldfile) t A . . .... 

{printf (" File has now been created. \n ), 
storef ile = fopen( filename, a+ );) 
fclose(storefile) ; . 

/* Read nominal test conditions from key board. */ 

if(. "\nEnter nominal test conditions An" ) ; 

for (inerr = 1; inerr; ) 

{printf ("\nStroke: \n"); ^ v ... 

printf ( " stroke code\n ) , 

printf ( " length number\n” ) ; 

printf (" ( inches )\n" ) ; 

for(i = 15 1 <= NSTROKE-l; if i ♦ }> ... 

printf ( " \tX7 . 3f \t\tXd\n , stroke[i], i). 
printf (" Enter code for stroke length. \n" ); , 

printf (" [If the desired stroke is not listed, ), 
printf (“enter a ’0’.]\n"); 
whi le( scanf ( "Xd" , 4istroke) ss 0){ 

getcharC); .. 

printf (” Enter an integer code number !\n ), 

if (istroke == 0){ . . . 

printf ("Enter stroke value in inches. \n ), 
scanf ("Xlf", fcstroke{03); 

printf ("^Stroke length s X7.3f", stroke [ i st r oke] ) ; 
printf (" Entry correct? (y or n)\n"); 
scanf ( "Xs" , resp); 

if(resp(0] s= *y’ i! resp[03 == 'Y ) 
inerr =0; 

else if(resp[0] ss *n’ !! resptO] ss *N ) 
inerr = 1; 

printf (" Respond with y, Y for ’yes* M ) \ 
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printf(“or with n, N for ’no' next tiaeArT): 

} 

for (inerr s 1; inerr; ) 

{print# ("\aBore: \n"); 

print# C bore code\n"); 

printfC (inches) numberW); 

ford = 1; i <= NBORE-1 ; 1 : i d) 

printf C\tX7.3f \tXd\n", bore[i], i); 
printfC Enter code for bore.\n"); 
printfC {If the desired bore is not listed, 
printf ( "enter a ’ 0 ’ . ] \n " ) ; 
while (scan# ("%d", iibore) as 0) 

{getchar( ) ; 

printf C Enter an integer code number !\n"); J 
if(ibore sr 0) 

{printfC Enter bore value in inches. \n“); 
aeanf ( "Xlf " , Abore[03);} 
printfC Bore s X7.3f in\n", borefibore] ) ; 
printfC Entry correct? (y or n)\n“); 
aeanf CXs", reap); 

if (resp[0] s= *y> ; j reap [0 ] == • Y’ ) 

{inerr s 0;} 

else if (resp[0] == *n' {! reap[03 == ’N' ) 

{inerr si;} 

else 

{printfC Respond with y, Y for 'yes' “); 
printf ("or with n, N for 'no 1 next time.\n");} 

for (inerr s 1; inerr; ) 

{printf C\nTube diameter: \n"); 
printfC diameter code\n*'); 

printf C (inches) number\n"); 

ford s l; i <r ND1AM-3; i s i 4 1) 

printf CYt*?.3f \tXd\n“, diam[i3. i); 
printfC Enter code for diameter. \n”); 
printfC [If the desired diameter is not listed, *'); 
printf Center a , 0 , .3\n“); 
whi le( aeanf ("Xd" , iidiam) sr 0) 

{getcharO; 

printfC Enter an integer code number ! \n" ); } 
ifddiam == 0) 

{printfC Enter diameter value in inches. \n"); 
scanfCXlf", &diam[0]);} 

printfC Tube diameter = X7.3f in\n”, diamfidiam] ) ; 
printfC Entry correct? (y or n)\n"); 
aeanf ( "Xs" , resp); 

if (resp[0] s= *y* ;• resp[0] s= ’Y’) 

{inerr =0;} 

else if (resp[0] sr ’n’ } J respfO] ss *N’) 

{inerr s 1 ; > 

else 

{printfC Respond with y, Y for ’yes’ “); 
printf Cor with n, N for ’no’ next time.\n" );} 

for( inerr s 1; inerr;) 

{printf C\nTest section length: \n"); 
printf ( "\ttube\tcode\tlength\n" ) ; 
printf ( "\tlength\tnumber\tover\n” ) ; 
printf C\t ( inches ) \tdi ameter\n" ) ; 
for(i s j; i <s NLENGTH-1 ; i s i 4 l) 

printf ( " \tX7 . 2f \t Xd\tX7 . 2f \n" , 

Iength[nlenrths{idiam3[i33, 

&leng‘th& [ idiam] [i] , 

length[nlengths[idiam3 [i}} / 
diam[idiam} ) ; 

printfC Inter code for test section length. \n”); 
printfC [If the desired length is not listed, "); 
printf Center a ’0’.]\n"); 
while (scan# (“Xd", ttilength) ss 0) 

{getchar ( ) ; 

printf (” Enter an integer code number !\n") ; } 
if (ilength ss 0) 
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{printf (" Enter tube length i n inches An"); 
scanf ( "Xlf " , &length[0] ) ; ) 
printf (" Test section length = %7.2f in\n", 

length[i length] ) ; 

printf (" Entry correct? (y or n)\n" ); 
scanf ( "Xs" , resp); 

if(resp[0] « ’y’ ! ! resp[0] == ’Y’) 

{in err s 0; } 


else if (xesp[0] == 


resp[0] == ’N’) 


else 


} 


{inerr = 1;} 

{printf ( M Respond with y, Y for 'yes' "); 
printf ( "or with n, N for 'no’ next timeAn");} 


for(inerr = 1; inerr; ) 

{printf ( AnAxial probe location: \n M ): 
printf (" axial code\n"); 

printf (" distance number\n"); 

printf (" ( inches )\n" ) ; 

ford s is i <* HAXIAL-l; i = i + 1 ) 

printf (" *6.3f %d\n M » 

axial [i length] [i j , i); 

printf (" Enter code for axial distance An M ) ; 
printf (“ [If the desired distance is not listed, "); 
printf ( “enter a *0 , .]\n“); 
while(scanf ( "Xd" , Aiaxial) == 0) 

{getchar ( ) ; 

printf (" Enter an integer code number ! \n" ) ; } 
ifdaxial == 0) 

{printf (" Enter axial distance in inches An ); 
scanf { "Xlf " , &.axial [i length] [0] ) ; } 
printf (*' Probe location = X6,3f in\n’ , 

axial [i length] [iaxial] ); 
printf (" Entry correct? (y or n)\n"); 
scanf ("X5" , resp); 

if ( resp[0] == *y' !! resp[0] == # Y # ) 

{inerr = 0 ; ) 

else if(resp[0] * = *n’ !! resp[0] == ’N') 

{inerr = 1 ; } 

else 

{printf ( " Respond with y, Y for ’yes’ " ) ; 


} 


printf ("or with n, N for 'no' next time An*’); } 


fortinerr = 1; inerr; ) 

{printf ( “\nDrlve opeedAn**); 

printf ("Code to enter drive shaft rpa = * lAn" ); 
printf ("Code to enter flywheel frequency in H 2 =" ); 
printf (" *2 An"); 

printf (" Enter code for entry An" ); 
while(scanf ( "Xd" , itispeed) =- 0) 

{getchar ( ) ; 

printf (" Enter an integer code number i \n" ); ) 
if ( i speed == 1) 

{printf ( " Enter shaft speed in rpmAn"); 
scanf ("Xlf " , fcspeed); 
speed = speed / 240.;} 
else if (ispeed == 2) 

{printf (" Enter flywheel frquency in Hz An"); 
scanf ( "Xlf “ , Aspeed);} 

printf (" Shaft speed = X6.1f rpre ", (speed * 240.)); 
printf (" Flywheel frequency c X7 . 3f Bs\n", speed); 
printf (" Entry correct? (y or n)\n“); 
scanf ( "Xs" , resp); 

if (resp[0] == *y’ !! resp[0] == ’Y' ) 

{inerr « 0; } 

else if(resptO) == ‘a’ !! resp[0] == ) 

{inerr = 1;} 

else 

{printf (" Respond with y, Y for ’yes’ "); 
printf ("or with n, N for ’no 1 next time An");} 

} 
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/* The following lines is used to incorporate shaft-angle 

encoder signals with less than 720 pulses per revolution, */ 
fordnerr s 1; in err; ) { 

printf ( "\nEnter number of readings per cycle :\n“); 
while(scanf ( "%d“ , fcnread) s: 0) 

{getcharf ); 

printf (“ Enter an integer number l \n*‘ ); } 
printf (’* %d readings per cycle will be taken. \n*’» 

nread); 

printf (" Divide 720 pulses by %f.\n M , 

720. /( double )nread ) ; 

if (speed * (double) nread >25.) 

printf ( M Frequency of readings is %f Hs!\n‘\ 

speed * (double) nread); 
nlag s (int ) ( (double )nread * lag_angle [istroke) / 360.); 
if (diagnosis) printf("lag angle = Xlf, nlag = %d\n" # 

lag.ang le[istroke] , nlag); 
printf(“ Entry correct? (y or n)\n’); 
scanf( M Xs M , resp); 

if(resptO) r= ; ; resptO] == # Y’ ) 

{inerr =0;} 

else if(resp[0] £ = *n* !! resp[0] == , N > ) 

{inerr =1;} 

else 

{printf ( ” Respond with y, Y for 'yes’ '*); 
printf("or with n, N for 'no* next time.\n‘' );} 

} 


/* Alternative: Dummy entry of shaft-angle encoder pulses. 
/* NOT USED: 
nread = 720; 

nlag = 2 * (int)(lag_angletistroke] ) ; 

if (diagnosis) printf (“lag angle = %lf, nlag = %d\n M , 

lag_angle[istroke] , nlag); 


*/ 


*/ 


fordnerr = 1; inerr; ) { 

printf ( *'\n£nter a 50 character comment line:\n“); 
printf (“ (Use _ instead of blank spaces ! )\n“ ) ; 
ford s l; i-<s 5; i**) printf ( "1234567890” ) ; 
printf ( M \n M ); 

for(i = 1; i <= 6; i+*) printf(“%d i-1); 

printf ( “\n“ ) ; 

acanfCXs" , dummy); 

printf ( “Comment line: \nXs*' , dummy); 

printf (“\n Entry correct? (y or n)\n"); 

scanf(“Xs M , resp); 

if (resptO] == ’y’ ! i resp[0] == *Y’) 

{inerr = 0; } 

else if (resp(O) == *n* I! resp[0] ss *N’) 

{inerr = 1;} 

else 

{printf (" Respond with y, Y for # yes* *’); 
printf (“or with n, N for 'no* next time.\n“);) 


/* Convert to SI base units. */ 
mstroke = stroke [i stroke] * 0.0254; 
mbore s bore[ibore] a 0.0254; 
mdiam = diam[idiam] * 0.0254; 
mlength = length [i length] * 0.0254; 
maxial s' axial [ilength] [iaxial] * 0.0254; 

/* Write runid and parameters to new data file. */ 
storefile = fopen(f ilename, "r +" ); 
f write ( runid, siseof (char) , 10 f storef ile) ; 
f write (tostroke , siseof (double ) , 1 , storef ile ) ; 
f write ( fcmbore , si seof ( double ) ,1 , storefile) ; 
fwrite(&mdiam, si 2 eof( double ) , 1, storef ile) ; 
f write (fcmlength , siseof ( double ) , 1 , storefile ) ; 
f write (toaxial .siseof (double) , 1 , storef ile ) ; 
fwritedspeed, siseof (double ) , 1 , storefile) ; 
f write (inread , siseof { int ) . 1 , storefile ) ; 
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else { 


if<! old.file) { • . 

fwrite(Amcycle, siseof ( int) , 1 , storef ile) , 
fwrite( dummy , siseof (char ) i NDUMMY , storef ile) ; 

) 

fclose(storefile) ; 

} 

/* Read parameters from old data file and provide a summary in 
English units. */ 
storef ile s fopen( filename, "r*-"); 
fread(runid,siteof (char), 10, storef ile); 
fread(4mstroke, siseof (double) , 1 , storef ile) ; 
freed ( Ambore , siseof ( double ) , 1 , storef ile ) ; 
f read (Amdiam. siseof ( double ) , 1 .storef ile); 
f read (Amlength, siseof (double) , 1 , storef ile) ; 
f read(Amaxial , siseof (double ) , 1 .storef ile ) ; 
fread(Aspeed, siseof (double) , 1 , storef ile) ; 
f read (tnread. siseof ( int ) , 1 , storef ile ) ; 
strncpy(year,Arunid[4],2) ; 
strncpy (month, Arunid[0] , 2) ; 

if (atoi(year) == 86 44 atoi(month) < 6) old_file * 1> 
if ( ! old_f ile) { 

f read(4mcycle , siseof ( int ) , 1 , storef ile ) ; 
freed (dummy , siseof ( char ) , NDUMMY , storef ile ) ; 

) 

fclose(storefile) ; 


/* Determine the lag in terms of number of pulses. */ 
f or( i =0; i <= NSTROKE; i++) { 

if (stroked] > (0.95 * mstroke / 0.0254). 

44 stroke [i] < (1.05 * mstroke / 0.0254)) { 

nlag = ( int )( (double )nread * lag_angle[i] 

/ \ • 


istroke = i; 

} 

if (diagnosis) printf ("lag angle - Xlf, nlag = *d\n“, 

lag_angle[istroke] , nlag); 


printf C\n Input data summary in English units :\n"); 

printf (” stroke = *6. If in\n", mstroke/0.0254 ) ; 

printfC' bore = *6. If in\n" , mbore/0.0254 ) ; 

printfC test section diameter =\tX6.1f in\n", mdiam/0.0254) ; 

printf (" test section length =\tX6.1f in\n", mlength/0 . 0254 ) 

printf ( ” axial location s\tX6.1f in\n", maxial/0 . 0254 ) ; 

printfC drive shaft speed = *6. If rpro\n", speed*240.); 

printfC Xd readings per cycle\n", nread); 

printfC [Divide 720 by Xf.]\n", 720 . /(double )nread) ; 

printfC Xs\n “ , dummy); 

printf (’’Type ’c <CR> ’ to continue. \n '') ; 

scanfCXs", resp); 

) 

/* Echo print input data in SI units. */ 

printf C\n Input data summary in SI units :\n"); 

printfC stroke = X6.1f mm\n", mstroke*1000 ) ; 

printfC bore = XS.lf mm\n", mbore*1000); 

printfC test section diameter = X6.1f mm\n’\ mdiam*1000); 

printf ( " test section length * X6.1f mm\n", mlength*1000) ; 

printfC axial location = X6.1f mm\n", maxial*l000) ; 

printfC frequency = X6.3f Bs\n", speed); 

/* estimate of the amplitude of the bulk-mean velocity */ 
printf ( "Estimated amplitude of the bulk-mean velocity s "); 
uavemax = PI * speed * mstroke * (mbore*mbore) / (mdiam*mdiam) ; 
printf ("X5.2f m/sec\n", uavemax); 


/* Calculate and print similarity parameters. */ 
printf C\n Nominal similarity parameters r \n M ) ; 
printfC Remax s X10.2e\n", , 

Remax s FI »mbore*mbore* speed ‘mstroke / mdiam /.NU); 
printfC Va = X6.1f\n", Va s 0. 5‘Pl‘speed‘mdiam‘mdiam / NU); 

printf (" A r = X6.2f\n", 

Ar s mbore*mbore/(mdiam*mdiam)‘mstroke/mlength ) ; 
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printf (" 1/d = %£ . If \n“ , loverd = mlength / mdiam); 

printf ( ** x/1 = %6.3f\n", xoverl s maxial / mlength); 

printf ( M x/d s X6.1f\n“ , xoverd s maxial / mdiam); 

else { 

storefile = f open (filename, M r+“); 
if (storefile s: HULL) 

{printf (" This file does not exist. \n" ); 
abort si;} * 

else { 

oldfile = 1; 

/* Read parameters from old data file. */ 
f read (runid, si zeof ( char ) , 10, storefile) ; 
f read(&mstroke , siteof (double ) , 1 , storefile) ; 
f read (tobore, sizeof (double) , 1 , storefile) ; 
f read(&mdiam, sizeof (double ) , 1 , storefile ) ; 
f read (&mlength, si zeof ( double ) , 1 , storefile) ; 
f read(&maxial , sizeof (double) , 1 , storefile) ; 
f read (fcspeed, sizeof (double ) , 1 , storefile) ; 
fread(&nread, sizeof (int) , 1 , storefile) ; 
strncpy (year ,fcrunid[4] ,2) ; 
strncpy(ttonth,lrunid[0] , 2) ; 

/* Determine the lag in terms of number of pulses. */ 
f or (i 2 0; i <2 R STROKE ; i*+) { 

if(stroke[i] > (0.95 * ostroke / 0.0254) 

&& stroke[i] < (1.05 * mstroke / 0.0254)) { 

nlag r (int )( (double )nread * lag_angle[i] 

/ 360. ); 

istroke = i; 

} 

} 

if (diagnosis ) printf (“lag angle = %lf, nlag s Xd\n", 

lag_angle[istroke] , nlag); 

/♦Check whether this is a file of the old format. */ 
if (atoi(year) s= 66 && atoi(month) < 6) old_file = 1; 
if ( I old_file) fread(dummy .sizeof (char) .NDUMKY, storefile) ; 

f close ( storefile) ; 

} 

} 

) 


137 


SET_UP_VMX 

*et_up_vmx( ) 

/* Set up NORLAND Prowler on IEEE interface. */ 

/* This program is an adaptation of set_up_vm for cross wires */ 

^include <gpib.h> 
tinclude <stdio.h> 
i include <string.h> 


astern int ib3; 
char set3[100]; 
char resp[100]; 

/* Send message to screen. */ 

printf C “NORLAND Prowler will now be conf igured. \n“ ) ; 


/* Identify device and set up interface. */ 
ib3 = ibf ind( */dev/ib3“ ) ; /* Define device ID. */ 
ibtmo(ib3,14); /* Timeout = 30sec */ 


/* Set controls on device and check interface communications. */ 


/* Generate string of control commands to be sent to device. */ 

strcpy ( set 3 , “ ]LA‘“ ) ; /* Beeper off */ 

strcat ( set 3 t “Y“); /* ACQ. MODE */ 

strcat ( set3 , “E" ) ; /* TRIGGERED HOLD */ 

strcat ( set3 , “M4096= “) ; /* BLOCK SIZE = 4096 */ 

strcat ( set 3 , “L0=“ ) ; /* SAMPLE INTERVAL = EXT. */ 

strcat ( set3 , “Z" ) ; /* TRIGGER SETUP */ 

strcat ( set 3 , “G4096=“ ) ; /* EXTERNAL TRIGGER DELAY = 4096 */ 

strcat ( set3 t “ME M ) ; /* SOURCE = EXTERNAL*/ 

strcat ( set 3 , “ [ “ ) i /* A SETUP */ 

strcat (set 3, /* ACTIVE */ 

strcat (set3 .”02=“); /* RANGE = 2 */ 

strcat ( set3 , “E0= “ ) ; /* BIAS = OX */ 

strcat ( set3 , “GC” ) ; /* COUPLING s DC */ 

strcat ( set 3 , "\V ) ; /* B SETUP */ 

strcat ( set3 ; /* ACTIVE */ 

strcat (set3, “C2=“ ) ; /* RANGE = 2 */ 

strcat ( set3 , “E0 = “ ) ; /* BIAS = 0% */ 

strcat( set3 , “GC" ) ; /* COUPLING = DC */ 


ibwrt ( ib3 , set3 , strlen (set3 ) ) ; /* Send string to device. */ 
while(ERR A ibsta){ 

switch (iberr) 

{ 

case 0: 

{printf (“iberr = Xd: operating system error\n“, iberr); 

printf (“ UNIX error code = Xd\n“, ibcnt); 
break; } 

case 1: 

{printf (“iberr r Xd: GPIB must be in charge. \n“, iberr); 

break ; } 

case 2 * 

{printf (“iberr = Xd: Write function detected ”, 

iberr); 


printf (“no listeners. \n“ ) ; 
break;} 

case 3: 

{printf (“iberr s Xd: interface board**, iberr); 

printf (“ not addressed correctly . \n’‘ );. 
break;} 

case 4 • 

{printf (“iberr s Xd: invalid arg. to fctn call\n”, iberr); 

break; } 

case 5: 

{printf (“iberr = Xd: GFIB-board must be ”, iberr); 

printf (“System Active Controller . \n“ ) ; 
break; } 

case 6: 
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{printf ( "iberr » Xd: I/O operation aborted . \n" , iberr); 

break;} 

case 7: 

{printf ( "iberr s Xd: Interface board does not ", iberr) 

printf ("exist, \n“); 
break; } 

case 10: 

{printf ( "iberr = Xd: I/O started before ", iberr); 

printf ( "previous operation completed . \n" ) ; 
break;} 

case 11: 

{printf ( "iberr s Xd : no capability for ", iberr); 

printf C “operation\n" ) ; 
break; } 

case 14: 

{printf ( "iberr s Xd: command error during ", iberr); 

printf ( "device call\n"); 

break;} 

case 15: 

{printf ("iberr = Xd: Serial Poll status ”, iberr); 

printf ("byte lost\n"); 

break;} 

case 16: 

{printf ( "iberr = Xd: SQR remains asserted . \n" , iberr); 

break;} 

} 

printf (" s> Check NORLAND and connections . \n" ) ; 
printf (" Type 1 c <CR>* when you are ready. \n"); 
scanf ( "Xs" , resp) ; 

ibwrt(ib3,set3,strlen(set3) ) ; /» Send string to device. */ 

} 

} 
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acquirex 

^ffiSESS^aS-SSSi- 

/. iu. irUii. ittSiS'S”; », ««> «»*•• * ..<> ». 

by J. Seume, 1966 */ 

{ 


©include 

<gpib.h> 


©include 

<stdio.h> 


©include 

(string. h> 


©include 

<math.h> 


©define 

MREAD 181 

/* 

©define 

MREAD2 721 

/* 

©define 

MREAD 3 903 

/* 

©define 

AMAX 4096 

/* 

©def ine 

SMAX 8452 

/* 

©define 

MCYCLE 50 

/* 

©define 

MRAD 30 

/* 

©define 

STRLNG 30 


©define 

NDUMMY 50 

/* 

©define 

PI 3.14159265 



maximum number of data array ©nxries / 
shaft-angle encoder angles in NORLAND arrays */ 
ueffA storage for 180 pts x 5 cycles */ 
number of entries in NORLAND data / |)0RLA « 

number of entries in string received from NORLAN 
maximum number of cycles */ . * . 

maximum number of radial probe locations */ 

/* This parameter is also needed in air.statex. */ 


extern int ib3; 4 __ + . 

extern int diagnosis, m_eycle, old_file, no_inst, 

extern int m_out, n_out[]; , ««y 5 «i aoeed - 

s:s ssft: rssi"i.2”*ijsr i "sr5LSJ?*~i ~ " 
si sr.:?' * cre> /; <"•“»«»> * “ ki ' h th « 

TDC trigger lags TDC */ 

extern char filename!] ; 


FILE 

FILE 

int 


*atoref ile, adensf ile; 
aumfile, *vmfile; 


inerr , 
irad , 

iuerr = 0, 


next_round 
round , 


/* 
/* 

irmserr 


= 1, 


error in input data */ 

number of current radial probe location */ 

- 0, /^sequence number of angle at which 
maximum error in umean and urms 
occurred in this cycle */ 

/* acquire another round of data */ 

A '‘round*’ of data are those data points in the 
NORLAND 1 s buffer that represent a complete cycle. */ 
/* number of cycles in the NORLAND’S buffer ©/ 

/* acquire at more radial locations */ 

s 1 s> final printout, lastcy >= mcycle */ 

5 1 s > intermediate printout, »_out >= 1 */ 
index for n_out[] */ 
number of current cycle */ 
number acquired at one radial location */ 
number of current crank location */ 
i,kcount, j count »i count, count, ucount, count 3, /* auxiliary counters 

iter 


cy_ iu__buf , 
morerad = 1 , 
fin_prt = 0, 
int_prt = 0, 
lout = 1, 
icycle, 
lastcy, 
iangle, 


/* 


/* 

/* 

/* 

/* 

/* 

/* 


double 


dist, distance, relrad, 
accuracy = 0.005, 

acalib , bcalib , ncal ib , 


/* probe location */ 

/a accuracy of umean */ 

/a general calibration constants for 
substitution of values below a/ 

/a inverse of ncalib »/ 


/* 


ninv, 

/a xwire calibrations */ 

/* calibration of 7/10/90, cross-wire *35333 for u jet <= 25 m/ssc */ 
acalibA = 2. 94934, bcalibA = 1.86552, ncalibA a 0.435.# 
acalibB = 3.18061, bcalibB = 1.96477, ncalibB s 0.435, 
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/* calibration of 6/20/90, cross-wire #35333 for ujet < = 17 */sec 
acalibA = 2. B3B01, bcalibA = 1.62569, ncalibA = 0.435, 
acalibB = 3.15662, bcalibB = 1.91373, ncalibB = 0.435, */ 

/* calibration of cross-wire #44135 for 0.0 m/9 to 17.5 m/9 (3/14/90) 
/* Wire A is the same as wire 1 */ 

/* acalibA =4.06779, bcalibA = 1.35912, ncalibA = .5, 
acalibB = 4.24447, bcalibB = 1.41936, ncalibB = .5, */ 

/a calibration constant#: 

B~2 = acalib 4 bcalib * (veleff Tncalib */ 

/* ******************************************************** */ 


ref^temp = 27.2, 

ref _press = 0.991e405, 

ref_dens, 

voffset , 

vof f s e t A , vof f s e t B , 
vgain, 

vgainA = 1.0, vgainB = 

voltage, 

trigang =0.0, 

base, argument, 
veleff , 
cycles , 

maxuerr = 0.0, 
mxrmserr = 0.0, 
um , 
vm, 
u, v, 

theta = 45 . , 

angle, 

kt = 0.135, 


/* dry-bulb temperature at calibration 
in degrees Celsius */ 

/* atmospheric pressure at calibration in Pa * 
/* density at calibration */ 

/* voltage that was subtracted from 
hot wire signal during conditioning */ 

/* multiplication factor that was 
applied to voltage during signal conditioning 
1 . 0 , 

/* hot-wire bridge output voltage */ 

/* angle after TDC at which the TOC 
trigger is actuated (in degrees) */ 

/* auxiliary variables */ 

/* instantaneous effective velocity in m/s */ 
/* number of cycles processed at this point */ 
/* accuracy of umean */ 

/* auxiliary variable for us and vm */ 

/* auxiliary variables for u and v, 
based upon ueffA and ueffB */ 

/* between sensor and the normal to flow */ 

/* theta, in radians */ 

/* coefficient for the tangential cooling, 
based on Champagne's work, for 1/d = 330 */ 


ktAterm,ktBterm, /* terms from the iteration for u and v */ 

sint, cost, 

uef f Anew, ueffBnew, 

vnew, unew, 

epsilonA, epsilonB, 

rhsA, lhsA, rhsB, lhsB, 


of f_set , 
volt.corr, 


t_sensor = 250., 
gas_const = 6315., 
air^mwt = 28.96, 


density, 
mean_dens ; 


/* auxiliary voltage offset variable */ 

/* voltage correction to account for 
ambient temperature difference between 
calibration and run */ 

/* sensor temperature in degrees Celsius */ 
/* universal gas constant in kg/kmol/K */ 

/* molecular weight in kg/kmol for air 
with mole fractions of: 

N2 - 0.7809 

02 - 0.2095 

Ar - 0.0096 */ 

/* current air density */ 

/* density at atmospheric pressure */ 


static double 


sumutMREAD] , 


sumvtMREAD] , 
sumu2[MR£AD} , 


sumv2[MREADj, 
sumuv[MREAD] , 
old.su [MREAD] 

old_sv[MREAD] 
uef f A[MREAD3] 


/* sum of instantaneous velocities, for u 
also: values of uaean[], re-sorted for 
lag in crank-angle */ . 

/* sum of squares of instantaneous velocities, 
also: values of urms[], re-sorted for 
lag in crank-angle */ 

/* sum of product of instantaneous velocities * 
, old_su2[MR£AD] , /* current values 

of sumu, sumu2 */ 

, old_sv2[MREAD] , old_suv[MREAD] , 

, ueffB, /* effective velocities from 

wires A and B, from which get u, v */ 


141 


umear>[MREAD] , /* ensemble averaged velocity, also 

used to store the density correction 
factor */ 

vmean[MREAD] , 

urms[MREAD] , /* velocity fluctuation */ 

vrrostMREAD] , 

upvp[MREAD] /* Reynolds' shear stress */ 

» 

char resp[5]; 
char status^byte; 

char set3[STRLNG J , acquire[2], beeper_on[4] ; 

static char aet_range[100] , rdcmdA [ STRLNG ], rdcmdB [STRING ] ; 

int *iptr, ifactorl, hexdigit, sign, lvalue; 
int first_time; 

int bit7 , bit6, bit5, bit4, Mt3, bit2, bitl , bitO; 
int air_statex( ) ; 

double *dptr, f actorl , factor2, factor, offset; 
static char readstrA[SMAX] , readstrB[SMAX] , digit[2]; 
static char *ptrdst r; /* pointer to readstr */ 

static char dummy [NDUMMY] , buf f er [NDUMMY] ; 

/* * Prepare for communication with the NORLAND * 


/* Generate strings for ACQUIRE and Beeper Off commands. */ 
strcpy ( acquire , "R" ) ; 

strcpy (beeper_on, “]LC M ) ; /* Beeper on */ 


/* Generate command string for data 

strcpy (rdcmdA, "_** ) ; 

strcat ( rdcadA, "K" ) ; 

strcat ( rdcmdA, "C" ) ; 

s treat (rdcmdA, "G” ) ; 

strcat (rdcmdA, "A" ) ; 


transfer from NORLAND of array A. */ 
/* 1/0 */ 

/* TRANSFER */ 

/* OUTPUT */ 

/* XFAST BINARY */ 

/a ARRAY A */ 


/* Generate command string for data 

strcpy ( rdcmdB , \ 

strcat ( rdcmdB , “K" ) ; 

strcat (rdcmdB, f, C" ) ; 

strcat ( rdcmdB, f, G" ) ; 

strcat (rdcmdB, ”C M ) ; 


transfer from NORLAND of array B. */ 
/* I/O */ 

/* TRANSFER */ 

/* OUTPUT */ 

/* XFAST BINARY */ 

/* ARRAY B */ 


/* 

/* 


/* Generate and send command string to reset the voltage r ^°K es v */ 
strcpy ( set_range, ** [C“ ) ; 
strcat { set_range , "5 = “ ) ; 
strcat ( set_range, ”\\C" ) ; 
street ( eet_range , " ) , 

ibwrt{ ib3 , set_range , strlen(set_range) ) ; 

/* Input and print run information prior to 

entering the main loop for ensemble averaging 


A SETUP RANGE */ 
5 V */ 

/* B SETUP RANGE */ 
/* 5 V */ 


* 


/* Calculate number of cycles completely represented in one NORLAND buffe 
based upon 720 samples /cycle via the shaft angle encoder */ 
cy_in_buf = 4096 / (MREAD2-1 ) ; 

/* Print out nlag. */ 

if (diagnosis) printfC’nlag * Xd\n’\ nlag); 

/* Print out cycles at which intermediate results are to be stored. */ 
if (diagnosis) { 

ford « is i ■<* *_out; i++) { 

printf C‘n_out[Xd] s %d\n M , i, n_out[i]); 

) 

) 

/* Set the maximum number of cycles to be acquired. */ 
if ( !m_cycle) mcycle s MCYCLE; 

/* Convert temperatures from Celsius to Kelvin. */ 
ref_teop 273.16; 

t_sensor 273.16; 

/* Enter voltage offsets for wires A and B. */ 
for (count s 1; count < =2; count** ){ 
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for(inerr s 1; inerr; ){ 

if (count s = 1) printf ( AnVoltage offset for wire A An*'); 

printf ( AnVoltage offset for wire BAn*); 
printf (" Enter absolute voltage value. \n“); 
if (count == 1) scanf ("Xlf”, AvoffsetA); 

else 

scanf rxif" t AvoffsetB); 

if(count == 1) printfC Voltage offset s X7.4g V\n", voffsetA); 

else 

printf (" Voltage offset = X7.4g V\n*\ voffsetB); 
printf {'* Entry correct? (y or n)\n“); 
scanf ("Xs", reap); 

if (reap[0] == 'y* ii resp[0] == ’Y' ) 

{inerr =0;} 

else if (resp[0] =s 'n' !J resp[0] == , N’) 

{inerr =1;} 

else 

{printf (" Respond with y, Y for 'yes’ *' ) ; 
printf ("or with n, N for ’no’ next time.\n*‘ )i) 

) 

/* The program assumes that theta = 45 degrees for the 
xwire probe. The iteration section oust be changed if this 
is not the case. */ 

printf ( "\nNote that the program assumes theta = 45 An"}; 

/* ****x*************»*»*******************************s*** 

/* Loop for radial postions */ 

for ( ; 1 ; ) { 

/* Initialise arrays for summation and velocity calculation. */ 
ford = 0; i <= MREAD; i++){ 
sumu[i] s 0.0; 
sumv[i] r 0.0; 
sumu2[i] r 0.0; 
sumv2ti] = 0.0; 
sumuv[i] = 0.0;- 
} 

/* Wake up the operator with a bell. */ 
ford = 0; i < 10; i+*) printf ("Xc" , A007'); 

/* Enter a comment line. */ 
for (inerr = 1; inerr; ) { 

printf ( AnEnter a 50 character comment line An*'); 
printf (" (Use _ instead of blank spaces ! )\n” ) ; 
f or (i s 1; i <s 6; i++) printf (“1234567690") ; 
printf ( An" ); 

ford = 1; i <= 6; i++) printfTXd ", i-1); 

printf ( An") ; 

fer(i t s*0; i <= NDUMKY; i++) dummy[i] = AO’; 

strcpy (dummy , ’'ensemble-averaged velocity: ") ; 

printf ( "Xs", dummy); 

scanf ("Xs" , buffer); 

strcat (dummy .buffer ) ; 

printf ( "Comment line: \nXs", dummy); 

printf("\n Entry correct? (y or n)\n"); 

scanf ("Xs", resp); 

if (resp[0] == 'y* •{ resp[0] s: ’Y’ ) 

{inerr = 0; ) 

else if (resptO] =r ' n ' !! resptO] s= ’N* ) 

{inerr =1;) 

else 

{printf (*' Respond with y, Y for 'yes’ " ); 
printf ( "or with n. N for 'no 1 next timeAn*’);} 


/* Enter room air conditions. */ 
if(i old_file) air_statex{ ) ; 

/* Enter probe position. */ 
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for(inerr = 1; inerr; ){ 

printf ( "\nradial probe location: \n“); 

printf ( “Code to enter wall distance in inches = 1 \n ) ; 

printf (“Code to enter wall distance in mm a * ); 

printf (“Code to enter radius as fraction “); 

printf(“of the tube radius a , 3 r \n“); 

printf (“Code to quit s ■'0 , \n")‘j 

printf (“ Enter code for entry An“); 

while ( scanf ( “%d“t fcirad) ss 0) 

{'get chart ) ; iV „ . . 

printf(" Enter an integer code number !\n 
switch (irad) 

{ 


case 0: 


case 1: 


case 2: 


case 3: 


{goto the_end; 
break ; } 

{printf (" Enter wall distance in inches. \n“); 
scanf ( “Xlf “ » Adist); 
distance s dist * 0.0254; 
break; } 

{printf (“ Enter wall distance in mm.\n“); 
scanf ( "Xlf “ , Adist); 
distance a dist / 1000.; 
break; } 

{printf (“ Enter radius as a fraction of the"); 

printf (“ tube radius . \n“ ) ; 

scanf ( “Xlf *' * Arelrad); 

distance = (1. - re lrad) * 0.5 * mdiam; 

break ; } 


printf (“ Wall distance = 
printf (“ - 


X7.4g inches\n“, 
distance / 0.0254); 

X6 . 3g mm\n“ , 
distance * 1000.); 
printf (“ Radius / Tube Radius a X6.3g \n“, 

1. - 2 . *distance/mdiam) ; 
printf (“ Entry correct? (y or n)\n“ ); 
printf (“ Enter *y' to start acquisition . \n“ ) ; 
scanf (“Xs“, resp); 

if (resp[0] == *y * !! respIO] == Y ) 

{inerr a 0 ; ) 

•1 se if (resp [03 ss *»’ ! S resp[0] = = , N > ) 

{inerr = 1 ; } 

else 

{printf (“ Respond with y, Y for 'yes' ); 
printf (“or with n, N for ‘no’ next time.\n“);) 

} 


/* 

/* 


/* If no instrument is available on the IEEE interface . . . */ 
if(no.inst) goto the_end; 

******************************************************* */ 

Acquire data with NORLAND until the 

maximum number of cycles is reached */ 

printf (“ Data will be acquired now.\n“); 

/* Set flag for acquisition of first round. */ 
first_time a 1; 

/* Acquire and process as many rounds of data as requested. */ 
for (round a 1, next_round a 1; next^round; round++){ 


/* Calculate density transient. */ 

ref_dens a ref_press * air.mwt / gas_const / ref .temp; 
if(Tdensfile a fopen( “densf ile", “r“)J ! = NULL) { 
f seek(densf ile »0L , 0 ) ; 

for(i =0; i < = nread; i++) { , . 

if ( .» f read (Adensity , si teof ( double) , 3 , dens file) 
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/* 

/* 


printf ( ’’Reading of density failed. \n") 
umean[i] s ref^dens / density; 

v • ) 

f close(densfile) ; 

} 

else { 

printf ( “densfile does not exist. p_atm assumed\n") ; 
mean_dens = p_atm * air.mwt / gas_const / t_dry; 
ford s 0; i <= nread; i++) { 

umean[i] = ref .dens / me&n_dens; 

} 

) 

/* Send string to start acquisition. */ 
ibwrt ( ib3 , acquire , strlen( acquire ) ) ; 

/* Wait until NORLAND starts acquisition. */ 

/* (Loop to test whether NORLAND is already acquiring). */ 
do{ 

ibrsp(ib3,Astatus_byte) ; 

if (diagnosis )printf ( "status.byte s *o\n'\ atatus.brte) 

} 

while ( ! status.byte & 5); 

if (diagnosis Jprintf ( "N started acquisition^"); 

/* If this is the first acquisition at this radial position, 
do not attempt to process data. */ 
if ( i f irst.time ) { 

if (diagnosis)printf ("This is not the first time An**); 


********************************************************** */ 

loop through for both ueffA and ueffB, 

the effective cooling velocities */ 

for(ucount s 1; ucount<=2; ucount++){ 


if (ucount s: 


else 


1) { 

ncalib s ncalibA; 
ptrdstr = readstrA; 
acalib s acalibA; 
bcalib s bcalibA; 
voffset = voffsetA; 
vgain = vgainA; ) 

{ 

ncalib = ncalibB; 
ptrdstr s readstrB; 
acalib s acalibB; 
bcalib = bcalibB; 
voffset = voffsetB; 
vgain = vgainB; } 


/* Evaluate Factor and Offset from data sent in 
XFAST binary format. See NORLAND Prowler manual 
volume 2 "Options for the Prowler", pp. 46-48. */ 


/* Calculate Factor. */ 


/* The first two hex digits (Word 1) represent 
the log to the base two, 
biased by 128, of the first factor 
of the Factor. */ 
sscanf (ptrdstr , "*2X" ,&if actorl ) ; 

/* Compute the first factor of the Factor, */ 
factorl s pow ( 2. ,( (double) if actorl - 12B.)); 

/* The next six hex digits (Words 2, 3, 4) represent 
the sign and the base two fractions of the second 
factor of Factor. Calculate contributions to the 
second factor, hex-digit by hex-digit. */ 
for(i*0, factor2=0; i<6; i++){ 

strncpy( digit, (ptrdstr+2+i ) , 1 ) ; 
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digital] = * \0 ’ ; 


/* Determine bit pattern corresponding to eac) 

hex-digit and calculate the second factor. */ 

ascanf (digit, "XX" , ibex digit) ; 

bitO = hexdigit 4 li 

bitl = hexdigit 4 2; 

bit2 = hexdigit 4 4; 

bit3 - hexdigit 4 8; 

if ( i==0 ) { 

if (bit3) 

sign = -1; 

else 

sign = 1; 


bit3 = 1; 

if (bit3) factor2 = factor2 

4 pow (2. .-(double) (i*4 4 l)); 
if (bit2 ) factor2 = factor2 

4 pow(2. .-(double) (i*4 42)); 
if (bitl) factor2 = factor2 

4 pow(2. .-(double) (1*4 +3)); 
if(bitO) factor2 = factor2 

4 r»owf2. .-fdouble)(l*4 4 4)); 


factor = (double) sign * factorl * factor2; 

/* if (diagnosis )printf ( "factor = Xf\n" .factor) ; */ 


/* Calculate Offset. */ 

/* The first two hex digits 

(Word 1) represent the log to the base two, 
biased by 126, of the first factor 
of the Offset. */ 

sscanf ( (ptrdstr+8 ) , "X2X" ,4ifaetorl ) ; 

/* Compute the first factor of the Offset. */ 
factorl - pow ( 2 .,(( double ) if actor! - 126.)); 

/* The next six hex digits (Words 2, 3, 4) represent 
the sign and the base two fractions of the second 
factor of Offset. */ 

/* Calculate contributions to the second factor, 
hex-digit by hex-digit. */ 
for(i=0, factor2=0; i<6; i++){ 

strncpy (digit , (ptrdstr+10+i ) , 1 ) ; 
digitm = ’ \0 ' ; 

/* Determine bit pattern corresponding to each 

hex-digit and calculate the second factor. */ 

sscanf (digit, "XX" ,4hexdigit) ; 

bitO s hexdigit 4 1; 

bitl s hexdigit 4 2; 

bit2 = hexdigit 4 4; 

bit3 = hexdigit 4 6; 

if (i==0){ 

if (bit3) 

sign s -1; 

else 

sign s 1; 
bit3 = 1; 

) 

if(bit3) factor2 s factor2 

4 pow(2 . .-(double) (1*4 * 1)); 
if (bit 2) factor2 = factor2 

4 pow( 2. .-(double) (1*4 4 2)); 
if (bitl) factor2 = factor2 

4 pow(2. .-(double) (1*4 +3)); 
if (bitO) faetor2 * factor2 

4 pow(2. .-(double) (i*4 +4)); 

offset : (double) sign * factorl * factor2; 
if (diagnosis )printf( "offset = Xf\n" .offset) ; 
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if (diagnosis )printf( "fraction and offset are calc\n"); 

/* ******************************* */ 

/* Evaluate individual data points */ 

icount = (MREAD2 - 1) / nread; 

ninv £ 1 . / ncalib; 

off-set £ offset «■ voffset * vgain; 

volt^corr £ sqrt ( (t_sensor ref_temp) 

/{t.eensor * t_dry) ) / vgain; 
angle £ PI * theta / 180.; 
sint £ sin(angle); 
cost a cos (angle); 
jcount a 0; 

ford £ If iptr = (int * ) (ptrdstr^256 ) ; 

iptr < (int *) (ptrdstr+256+2*cy_in_buf *(MREAD2-1 ) ) ; 
i*+, iptr+4){ 

/* NOTE: Due to storage limitations, only every 

fourth point (2 degrees) is included, i.e. 

2 4 6 .... 180 182 ... 360 degrees */ 
if ( f ( i % icount) ){ 
jcount+4; 

/* Calculate voltage value according to 
NORLAND Prowler manual pp. 48-49 of 5/20/85. */ 
voltage = ( (double) ( *iptr-OX8000 )*f actor 
+ off_set) * volt_corr; 

/* Calculate instantaneous velocity. */ 

/* King's Law with exponent other than 0.5 */ 
if ((base = voltage*voltage - acalib) > 0.0) { 
veleff a pow(base/bcalib , ninv) ; 

} 

else { 

veleff = 0.0; 

) 

/* Correct velocity for static pressure. */ 

/* Note; Currently, the density transient for the pressure 
correction is corrected for angular offset between 
piston TDC and TDC-marker in def_density; this also applies 
to acq_u.c. 4/9/89 JS */ 

veleff *£ umean[ jcount % (MREAD-1)]; 

if(ucount ss 1) ueffAt jcount] s veleff; 
else 
{ 

ueffB £ veleff; 

IhsA = pow(ueffA[ jcount] ,2. ); 

IhsB = pow(uef fB, 2. ) ; 
v s sint * (ueffA[ jcount] - ueffB); 
u s (ueffA[ jcount] - v * sint) / cost; 
iter = 0; 

/* ******************************************** */ 

/* iteration to determine u and v instantaneous */ 

do 

{ 

iter++; 

ktAterm £ pow((kt * sint * (u - v)),2.); 
ktBterm = pow((kt * cost * (u 4 v)),2.); 
uef f Anew £ sqrtdhsA - ktAterm); 
ueffBnew * sqrtdhsB - ktBterm); 
vnew s sint * (ueffAnew - ueffBnew); 
unew = (ueffAnew - vnew * sint) / cost; 
epsilonA s fabs( (vnew • v) / v); 
epsilonB £ fabs((unew - u) / u); 
u £ unew; 
v £ vnew; 
if ( iter > 2) 

printfC i £ %d iter £ Xd epA £ Xf epB £ Xf\n" , 
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i , iter ,epsilonA,epsilonB) ; 

while ((epsilonA > .001) !! (epsilonB > .001)); 

iangle = Jeount X (MREAD- 1 ) ; 

/* Update the sumations */ 
sumu[i angle] 4= u; 
sumv[iangle] +s v; 
sumu2£iangle] ♦= (u*u); 
sumv2[langle] *- (v*v); 
sumuv[iangle] (u»v); 

/* Output v instantaneous to the file "vainst" */ 
if ( (iangle == 179) 44 (i < 750)){ 

vmfile = fopen( "/usr/geof f /proc/vminst" , "w" ) ; 

for(kcount = 1; keount <- 179; kcount++){ 

fprintf (vmf ile, "XdVtXlf \n" , 2 * keount , sumv[kcount] ) ; 

} 

fflush(vafile); 
fclose(vmfile) ; 

printf ( "vminst file printed\n"); 


) 


} /* end of loop for ueffB */ 

J /* end of loop for every 4th pt »/ 

} '/* end of binary string breakdown loop »/ 

} /* end of ucount loop for ueffA and ueffB */ 

if (diagnosis )printf ( "data converted\n” ) ; 

/* ******************************* */ 

/* Section to determine run status */ 

/* Should another buffer of data be acquired? */ 
if((lastcy - (round - 1) * cy.in.buf) >= »cycle) 

next.round = 0; 

if (diagnosis) printf ("next.round = Xd\n", 

next.round ) ; 

if (diagnosis )printf( "wait for end of acquisition^”); 
if (diagnosis )printf ( "status.byte = *o\n", status.byte ) ; 

/* Send message about current round. */ 

printf (" Data for round Xd (cycle Xd) processed . \n" , 

(round - 1), (round - 1) * cy.in.buf); 

/* Wait until NORLAND is done acquiring. */ 

/* (Loop to test whether NORLAND is still acquiring.) »/ 

i = 0; 

do{ 

ibrsp(ib3,4status_byte) ; 
if (diagnosis ){ 
i ♦« l; 
if (i > 100 ) { 

i = 0; 

printf ("Xo\n", status.byte); 

} 

) 

) 

while( status.byte 4 5); 

if (diagnosis )printf("N stopped acquisition^" ) ; 
if (diagnosis )printf( "status.byte = *o\n", status.byte); 

/* if necessary, read* results of data acquisition, a/ 
if (next.round H 

if (diagnosis )printf ("reading of A will begin\n’); 

/* Send command to read NORLAND buffer for Chan A. */ 
ibwrt(ib3 , rdcmdA, strlen(rdcmdA) ) ; 

/* Read data from NORLAND. */ 
ibrd ( lb3 , readstrA , SMAX ) ; 
if (diagnosis)printf ( "reading of A done\n“); 
if (diagnosis )printf( "status.byte = *o\n", status.byte); 
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if (diagnosis )printf(“ reading of B will begin\n“); 

/* Send command to read NORLAND buffer for Chan B. */ 
ibwrt ( ib3 , rdcmdB, strlen(rdcmdB) ) ; 

/* Read data from NORLAND. */ 
ibrd ( ib3 , readstrB , SMAX ) ; 
if (diagnosis jprintf ( “reading of B done\n“); 

> 

if (diagnosis )printf("status_.brte s %o\n“ . status_by te ) ; 

/* Reset flag for first round of acquisition. */ 
if (f irst_time) first_time = 0; 

/* Calculate the number of cycles stored and entered 
into the summation so far. */ 
cycles s (double) ( (round - 1) * cy_in_buf); 
printf ("cycles stored, summed = %f\n“ .cycles) ; 


/* Set flags for printout and for updating sums. */ 
if ( Jnext_round) { 

f in_prt = 1; 

} 

if (m_out >= 1 iout <= m_out 

cycles >s (double )n_out[iout3 ) { 
iout++; 
int_prt = 1 ; 

} 

if(fin_prt !! intjrt) { 

printf( “cycles = %f\n“ .cycles ) ; 

/* **************************************** a/ 
/♦Calculate ensemble averaged velocities, 
rms velocity fluctuations, and shear stresses 
based on the summations */ 

for(iangle = 1; iangle <= nread; iangle++){ 
urn = sumu[iangle] / cycles; 
umean (iangle) = urn; 
vtn = sumv[ iangle] / cycles; 
vmean [iangle) = va; 
if((argument s 1. /(cycles - 1.) * 

(sumu2[iangle] - um*um*cycles) ) > 0.0) 
urms [iangle] = sqrt (argument ) ; 
else urms[iangle] s 0.0; 
if ((argument = 1.0/(cycles - 1.) * 

(sumv2[ iangle] - vm*vm*cycles ) ) > 0.0) 
vrms[ iangle] z sqrt ( argument ) ; 
else vrms[iangle] = 0.0; 
upvp[ iangle ] = 1.0/(cycles - 1.) * 

(sumuv[ iangle] - um*vm*cycles ) ; 

} 

} 

if (intjrt) { 

/♦ Store sums in auxiliary arrays to be updated 
further during subsequent rounds. */ 
for ( iangle = 3; iangle <r nread; iangle++) { 
old_su[iangle] - sumu[iangle] ; 
old_sv[iangle] s sumv [i angle] ; 
old_su2[iangle] * sumu2 [ iangle] ; 
old_sv2[iangle] 2 *umv2[iangle] ; 
old_*uv[iangle] - sumuv[ iangle) ; 

) 

} 

if (f in_prt !| int_prt) { 

if (diagnosis) printf ("fin_prt = %d, int_prt r *d \n", 

finjrt, intjrt); 

/* Sort entries in umean and urms arrays according to 
crank angle to account for angular offset 
between TDC and trigger. */ 
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f or (i angle = 1; i*ngle <= aread * nlag; i*ngle++){ 
sumu[iangle ♦ nlag] = uicean [i angle] ; 
sumv[iangle 4 nlag] 2 vme&n [ iangle] ; 
suau2tiangle 4 nlag] 2 ur©s[iangle] ; 
suov2[iangle 4 nlag] = vr»s[iangle] ; 
su*nuv[iangle 4 nlag] 2 upvp[iangle] ; 

for(iangle 2 nraad - nlag 4 1; 

iangle <= nread; iangle4+){ „ _ 

sumu[iangle 4 nlag - nread] 2 unean[iangle] ; 
sunv[iangle 4 nlag - nread] - vmean [ iangle ] ; 
sun>u2[ iangle 4 nlag - nread] = urns [iangle] ; 
sumv2 [iangle 4 nlag * nread] - vrms[iangle] ; 
aunuv[iangle 4 nlag - nread] = upvpfiangle] ; 

} 

/* ************************************ */ 

/* Store the results in a binary string */ 

if (diagnosis) printf ("will open storef ile\n" ); 
storefile = fopen (filename , "r+" ) ; 
if ( diagnosis ) printf ( ‘'opened storef ile\n" ) ; 
if(storefile == NULL) 

printf ( "fopen failed\n" ); 

/* Hove to end of file. */ 
if (fseek( storefile, OL, 2) ) 

printf ( *’f seek failedXn"); 

if ( f write (&di stance , si seof ( double ) , 1 , storef i le ) ! 2 1 ) 
printf ( "f write failed\n"); 

if (diagnosis )printf ( "distance 2 Xf \n" , distance) ; 
if (f write (^accuracy » siseof (double ), 1 , storef ile) ! 2 1) 
printf ( "fwrite failedXn"); 

if (diagnosis)printf ("accuracy 2 Xf \n" * accuracy ) ; 
if ( fwrite (fclastcy , siseof ( int ) , 1 , storefile ) ! 2 1 ) 
printf ( "fwrite failed\n" ); 

if (diagnosis)printf ( "lastcy 2 %d\n"*lastcy ) ; 
if (fwrite (taaxuerr, siseof (double) , 1 , storef ile) != 1) 
printf ( "fwrite failedNn" ); 

if (diagnosis )printf ("maxuerr 2 Xf \n" .aaxuerr ) ; 
if ( fwrite (iiuerr, si seof ( int) , 1 , storefile) != 1) 
printf ( "fwrite failed\n" ); 
if (diagnosis ) printf ( "iuerr 2 Xd\n*\ iuerr ) ; 
if (fwrite (&nixrffiserr , si seof (double ), 1 , storef ile) ! 2 1) 
printf ( "fwrite failedXn"); 

if ( diagnosis )printf ( "mxrmserr 2 Xf \n" .axrmserr) ; 
if ( fwrite (iimiserr . siseof ( int ), 1 , storef ile) ! 2 1) 
printf { "fwrite failed\n"); 

if (diagnosis )printf ( "irmserr 2 Xd\n" , iraserr ) ; 
if ( fwrite (isumu[l] , siseof (double ) , nread, storefile) 
is nread) 

printf ( "fwrite f*iled\n"); 
if (diagnosis) { 

for(count3 = 1; count3 <= 180; count34+); 
printf ("umean[Xd] = Xf \n" .countS.suautcountS] ) ; 
) 

if ( f write (&sunu2 [ 1 ] , aiteof ( double ) , nread , storefile ) 

is nre ad) 

printf ("fwrite for sumu2 failed\n" ); 
if (fwrite(&suav[l] ,siseof (double) .nread, storefile) 
is nre ad) 

printf ("fwrite for sunv failed\n"); 
if ( f wr ite ( ksumvl [ 1 ] , siseof ( double ) , nread , storefile ) 

! 2 nread) 

printf ( "fwrite for sumv2 failed\n"); 
if ( f write <&suouv[ 1 ] , siseof ( double ) , nread , storefile ) 
is nread) 

printf ( "fwrite for sumuv failed\n M ); 
if ( ! old_file) { 

if ( fwrite (&t_dry, siseof (double) , 1 .storef ile) 

!= 1) printf ( "fwrite for t_dry failed\n"); 
if (fwrite (tt^wet. siseof (double) , 1 , storefile) 

Is 1) printf ("fwrite for t_wet failedNn"); 
if (fwrite (&p_atn, siseof ( double) , 1 , storefile ) 


150 


!s 1) printf ("fwrite for p_atm failed\n"j; 
if (fwrite ( dummy , si 2 eof ( char ) , NDUMMY, storef ile ) 
■is NDUMMY) printf ("fwrite for NDUMMY f*iled\n" 
if (diagnosis)printf ( "Comment: Xs\n", dummy); 


fffdiaenosis) printf ("will close atorefile\n") ; 
if (fclose(storefile) s: EOF) printf ( “fclose failed\n") 
printf (Data were stored in fileAn"); 


); 


if(fin_prt) { 

/* Reset the sums used for averaging to eero for the 
next calculation of ensemble averages. »/ 
for(iangle = 1; iangle <= nread; iangle++){ 
sumu[iangle] = 0.0; 
sumv[iangle) s 0.0; 
sumu2[iangle) = 0.0; 
surav2[iangle] s 0.0; 
sumuvfiangle) = 0.0; 

iout = 1; 


/* Reset fin_prt to tero. */ 
fin_prt = 0; 


if(int_prt) { 

/* Reset the sums used for averaging to aero for the 
ongoing calculation of ensemble averages. */ 
for (iangle = 1; iangle <= nread; iangle++){ 
sumu[iangle) = old_su[iangle) ; 
sumv[iangle) = old_sv[iangle) ; 
sumu2 [iangle) = old_su2[iangle) ; 
sumv2 [iangle) = old_av2[iangle) ; 
sumuv[ iangle) = old_suv[iangle) ; 


/* Reset int_prt to sero. */ 
int_prt =0; 

} 

} 

) 

the_end: printf ("No further data will be acquired. \n" ) ; 
/* Acquirex program end */ 

/* a*****************,* */ 
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AIR STATEX 


/* Function to enter, or read from existing file, the * file 

conditions and to enter mean static air pressure in •file. 
Function adapted from air.state.c for cross-wires 3/90 »/ 


finclude <stdio.h> 
a include <string.h> 


Udef ine 
#def ine 


STRLNG 30 
NDUMMY 50 


FILE *storef ile ; 

extern int diagnosis, oldfile; 

extern int nread; /* number of readings per cycle / 

extern char filename[]; .... 

extern double t.dry, t_wet, P_atm; /* air conditions 6\irin*r\in. 

stored in Kelvin and Pascal internally. */ 

int inerr, /* error in input data */ 
i /* auxiliary counter */ 

t 

long ’offset; 

double Si ga£ f const r = 8315., /* universal gas constant in kg/kmol/K */ 

air~mwt =28.96, /* molecular weight in kg/kmol for air 

with mole fractions of: 

N2 - 0.7809 

02 - 0.2095 

Ar - 0.0096 */ 

density /» air density in kg/m~3 */ 


char resp[STRLNG] ; 


/* Open storefile. */ 
storefile = f open (filename/* r“ ) ; 


/* Enter ambient air conditions, 
if (diagnosis) printf ( "oldf ile = 
if(oldfile) { 

printf ('* Current ambient 
reap to j = ; 

) 

else { 

printf ( "\nEnter ambient 
resptO] = 9 y* i 
oldf ile = 1; 


*/ 

Xd\n*' , oldf ile); 
air conditions : \n*' ) ; 


air conditions. \n M ) ; 


switch(resp[0] ) { 
case 'n* : case ’N' :{ 


/* Determine the site of the header. */ 
siseof header = (long) (( 10 +NDUMMY)*sireof (char) 

4 6*siseof (double) 

4 2*sireof (int) ) ;* 

if (diagnosis) printf ( "siseof header * Xld\n‘‘, aiseofheader) 

/* Determine the sise of a data Bet. »/ 

siteofset * (long) (7*siteof (double) ♦ S»siteof (int) 

4 2 * nread » siseof (double) 

♦ NDUMMY * siseof (char) ) ; 


/* Addition to sise of a data set for cross wire */ 
siseof set «■= (long) (3 * nread * aiseof (double )) ; 

if (diagnosis) printf (“siseof set = %ld\n*\ aiseofset); 

/* Determine offset of latest air data 

from end of file. */ 

fseek ( storefile ,0L, 2); /» Move to end of file. */ 
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case * 


if (diagnosis) printf ( “f seek • end ok\n“ ); 


/* Check whether there is an entry for the state 
of the air. Read the air data. */ 
offset s ftell(storef ile) ; 

if (diagnosis) printf ("offset = Xld\n“, offset); 
if (offset >= siseofheader + siseofset) { 

if (diagnosis) printf ( ”f tell >\n M ); 
offset = (long) (- 3 * siteof (double) 

- HDUMMY * siseof (char)); 
fseek(storef ile, offset, 2) ; 
offset = ftelKstoref ile) ; 
if (diagnosis) { 

printf ( “offset = *ld\n“, offset); 
printf (“errors before reading: "); 
if (feof (storefile) ) printf ( “EOF\n“ ) ; 
if (f error (storefile) ) printf ( *’error\n“ ) ; 

if (f read(&t_dry, siseof (double) , 1 , storefile) != 1) f 
if (feof (storefile) ) printf ( “EOF\n“) ; 
if ( f error (storefile) ) printf ( “error\n“ ) ; 

) 

else { 

if (diagnosis) printf ("f read of t_dry succAn") 

} 

if ( f read (&t_wet, siseof (double), 1, storefile) 2= 1) { 
if (feof (storefile) ) printf ("EOF\n") ; 
if ( f error ( storefile ) ) printf ( "error\n“ ) ; 

} 

else { 

if (diagnosis) printf ( "f read of t_wet succAn") 

if (fread(&p atm, siseof (double) , 1 .storefile) != 1) { 
if ( feof ( storefile ) ) printf ( "EOF\n" ) ; 

If (ferror(storefile) ) printf ( “error\n") ; 

) 

else { 

if (diagnosis) printf ("f read of p_atm succAn ) 

printf ( "dry-bulb temperature = *lf degr.C\n", 

t_dry - 273.15); 

printf ( ”wet-bulb temperature = *lf degr.C\n”, 

t_*»et - 273.15); 

printf ( "atmospheric pressure = Xlf bar\n”, 

p_atm / l.e+05); 
printf ( "Entry correct? (y/n)"); 
scanf ("Xs", resp); 

if (resp[0) == 'y‘ i! resp[0] == ’V) 
break ; 

) 


else { 


} 


printf ( "There is no old entry of ambient air data An") 

) 


y‘: case *Y*:{ 

/* Enter ambient air conditions. */ 
for(inerr s 1; inerr; ){ 

printf ( "EnterVtdry-bulb temperature (degr.C) An"); 
printf ( "\tuet-bulb temperature (degr.C) An" ) ; 
printf ( "Ytatmospheric pressure (bar) An"); 
scanf ("XlfXlfXlf ", At_dry, &t_wet, ftp.atm); 
printf ( "dry-bulb temperature = Xlf degr.C\n", 
t_dry ) ; 

printf ( "wet-bulb temperature s Xlf degr.C\n", 
t_wet) ; 

printf ( "atmospheric pressure s Xlf bar\n", 
p_atm) ; 

t_dry 273.15; 

t_wet ♦= 273.15; 

P_atm l.e+05; 

printf ( "Entry correct? (y/n)\n"); 
scanf ("Xs", resp); 

if (resptO)-=s ’y' !! resp[0) s= *Y') 
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} 


I I 
I I 


resprO] == ’N‘) 


inerr = 0; 

else if (resp[0] == *n’ 
inerr = 1; 

printf ( “Enter numbers and \n"); 
printf ( "respond with y» Y for 'yes* ); 
printf ("or with n, N for 'no' next tine. 


break ; 

) 

fclose(storefile) ; 
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PROCESSX 

/* “processx . c*' processes two channel xuire measurement files. 

6. Friedman, 8/90 */ 

/* Program is adapted from “process. c‘* written by J. Seuae for single 
- wire data processing */ 

•include <stdio.h> 

•include <math.h> 

r •include <string.h> 

•define KRAD 40 
•define MREAD 161 
•define IDLENGTH 10 
•define NDUMMY 50 
•define PI (4. * atan(l.O)) 

•define NU 16.e-06 

char usaget] = “Osage: procshw [-f runid or -t position or -p time or\ 

-V or -a or -d or -w or -r or -R]\n“; 

main(argc,argv) 
int argc; 
char *argv[]; 

{ 

FILE *storefile; 

FILE *tracefile; 

FILE eproffile; 

FILE *avefile; 

FILE *idealf ile; 

int write_all; /* Write to files the data for all active traces and 

for profiles in increments of 30 degs of crank angle. */ 
int diagnosis =1; /* Print error diagnostics. */ 

int fast si; /* Enter file i.d. from the command line, 

skip echo print of run parameters. */ 
int radial si; /* Process the radial velocity component v */ 

int trace =1; /* Generate data for a plot of the ensemble-averaged 

mean-velocity fluctuation transient 
at one radial* location. */ 

int profile si;, /* Generate data for a plot of a mean-vel. profile */ 

int average si; /* Generate data for a plot of the cross-sectional 

mean mean-velocity transient (real and ideal). */ 
int rms = 1; /* Process rms-velocity fluctuations instead of 

ensemble-averaged velocities. */ 

int Rss si; /* Process Reynolds' shear stress values */ 

int position; /* Number of the radial position at which a trace ahall 

be plotted. */ 

int itime; /* Number of the current crank angle. */ 

int not^done si; /* Program is not ready to be terminated. */ 

int old^file = 0; /* file format old or new ? */ 

int inerr, flag, iangle, nrad, nsort, i, j, irad; 

int nread; /* number of readings per cycle */ 

int mcycle; /* maximum number of cycles to be acquired */ 

int nangle =12; /* number of angles at which profiles are to be plotted 

when write_all si*/ 
int lastcy, iuerr, irmserr; 

> long p, rptr[MRAD] , offset; 

long siseofheader, siseofset; 

double angle; /* crank angle */ 

double time; /* Integer crank angle at which a mean-velocity profile 

shall be plotted. */ 

•double mstroke, mbore, mdiam, mlength, maxial, freq; 

•double relrad; 

-double Remax, Va, Ar, loverd, xoverl, xoverd, utvemax; 
double accuracy, maxuerr, mxrmserr; 

static double distance, ume an [ MREAD ] , urms [MREAD] , usve [MREAD] ; 
static double vmean[MREAD] , vrms [MREAD] , vave[MREAD], upvp[ MREAD] ; 
static double dist[MRAD], value, umprf[MRAD], ucl; 

double uprt; /* auxiliary variable to print umean, urms */ 

double d, sortdist[MRAD] ; 
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double umint, ain’t; 

double riml , ri ; /* auxiliary radii */ 

double fnull = 0.0; 

double pi; /* pi = 3.1415 */ 

double air_viscosity ( ) , air_cond(), air_cp(), 

air_density( ) * dry_air_density ( ) , psat_water( ) ; 
double T_dry, T_wet, .p_atm; 

double rho, rhod, hum_ratio, air_cont, rh, mu, nu, cond, cp» alpha, rr; 

char runidt 10] , resp[20] , resp2 [20] , f ilename[30] , title [KDUMMY] » dummytKDOMMY 
char tfname[10] , tfnumber[5], pfname[10], pfnuaber[5]; 
char year [3], month[3]; 

/* Calculate pi */ 
pi s PI; 

printf ( "nread = Xd\n" .nread) ; 

/* Determine the sizes of header and data sets. */ 

sizeofheader = (long) ( 10*sizeof (char ) 4 6*sizeof ( double ) ) . 

4 sizeof (int); /* size of the run information */ 
sizeofset s (long) (4*sizeof (double ) 4 3*sizeof (int ) 

4 2 * nread * sizeof (double) ) ; /* size of one 

data set */ 

/* Add to "sizeof set" the size of the 3 new arrays used in 
the cross-wire measurements */ 

sizeofset +: (long) (3 * nread * sizeof (double )) ; 

/* Set defaults for command line parameters. */ 

fast = 0; 

radial = 0; 

trace = 0; 

profile = 0; 

average = 0; 

diagnosis = 0; 

write_all - 0; 

rms = 0 ; 

Rss =0; 

/* Read the command line for control parameters. */ 

while (**4+argv == 

--argc ; 

switch (*4+*argv) 

*f ’ : 

fast z 1; 

strcpy ( runid , *++argv ) ; 

— argc; 
break ; 

’t‘ : 

trace = 1 ; 

position s atoi (*44*rgv) ; 

--argc; 
break; 

1 v 1 : 

radial = 1; 

--argc; 
break ; 

*P’ : 

profile = 1; 
time s atof (*44argv) ; 

— argc; 
break; 

’a 1 : 

average si; 

— argc; 
break; 

♦d* : 

diagnosis = 1; 

--argc; 
break; 

'w' : 

write_all =1; 

--argc; 


{ 

case 


case 


case 


case 


case 


case 


case 
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break; 
case *r* : 

rms = 1; 

—arfic; 
break; 
case *R* : 

Rss = 1; 

-- argc; 
break; 

) 

} 

if (diagnosis )printf( "trace position = Xd\n" .position) ; 
for(not_done = 1; not_done; ){ 
if ( ! fast){ 

/* Read run identification and check whether the corresponding 
file already exists. */ 
for(inerr = 1; inerr; ){ 

printf ( "\n£nter run identification: \n\n"); 
printf ("(Use the format moddyyss where: \n" ); 
printfr* mm = month, dd = day, yy s yearAn”); 
printf (*' and s s = a sequence number of the day's”); 
printf (" runs)\n" ); 

printf ( “Enter c to continue using the same "); 
printf ("run An"); 

printf ("Enter s to stop the program. \n“ ) ; 
scanf ("Xs", runid) ; 
if(runid[0) == *c' ) break; 
if(runid[0] == 's') goto the.end; 
printf ("mm = XcXc ", runid[0], runid[l]); 

printf("dd = XcXc ", runid[2], runid[3]); 

printf ("yy = XcXc ", runid[4], runid[5)); 

printf ("as = XcXc\n ", runid [6], runid[7]); 

strcpy (filename , "/usr/geof f /shwdata/" ) ; 
strcpy(&f ilename[19] .runid) ; 

printf (" The filename is 'Xs’XnXn", filename); 
fclose(storefile) ; 
storefile s f open (filename , "r+"); 
if(storefile == NOLL) 

printf (" This file does not exist. \n "); 

else 

printf (" This file exists. \n"); 
printf ("\n Entry correct? (y or n or stop)\n"); 
scanf ("Xs", resp); 

if (resp[0) *= 'y* !! resp[0] ~ * Y* ) 

{inerr = 0; ) 

else if(resp[0] as 'n* !! resp[0] == *N*) 

{continue ; } 

else if(resp[0] ss 's* i! resp[0] =r *S* ) 

{goto the_end;} 

else 

{printf (" Respond with y, Y for ’yes 1 ; "); 

printf ("or with n, N for ’no* An"); 

printf ("or with s, S for 'stop' next time.\n");} 

} 

printf ("If you want to process instantaneous "); 
printf ("or ensemble-averaged data or times An"); 
printf (" = > enter *m*,\n"); 

printf("If you want to process differences "); 

printf ("or rms-f luctuations or angular velocity , \n" ) ; 

printf ("=> enter # r*An"); 

printf ("If you want to process Reynolds* "); 

printf ("shear stress, \n"); 

printf ("=> enter ’R’An"); 

scanf ("Xs", resp); 

if (resp[0] a= # m* 5S resptO) == *r*) 

{printf ( "Enter a *v* for radial velocity or any other "); . 
printf ( "character for the axial velocity An" ) ; 
scanf ("Xs",resp2) ; 

if (resp2[0] == *v* ) radial r 1; 

) 

if (resp[0] *== *m* ) rms = 0; 
else if(resp[0) == ’r*) rms = 1; 
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else if (resp[0) == ’R’ ) Rss s 1; 

elBe * printf ("Mean velocity will be processed. \n"); 

Rss = 0; 
rms = 0; 

} 

) 

/♦ Take run i.d. from command line. */ 
strcpy (filename * Vusr/geof f /shwdata/* ) ; 
strcpy (fitfilename[ 19] ,runid) ; 
storefile = f opentf ilename, #, r+ M ); 
if (storefile == NULL){ . . . 

printfC This file does not exist An ), 

*oto the_end; 

) 

) 

/* Read parameters from data file. */ 
storefile s fopenlf ilename , *r+ M ); 
f read( runid, siseof (char) * 10 , storefile) > 
f read(tostroke , siseof (double) , 1 , storefile ) ; 
f read (Stobore , siseof (double ) » 1 » storefile) ; 
f read (&md iam , siseof (double ) , 1 » storefile ) , 
f read (&mlength, siseof (double ) , 1 , storefile ) ; 
f read (&maxial , siseof (double ) * 1 * storefile ) , 
f read ( &f recj , siseof ( double ) * 1 * storefile) » 

f read (&nread , siseof ( int ), 1 » storefile ) ; . 

/* Check whether this is a file of the old format. */ 
strncpy (year ,fitrunid[4] > 2) ; 
strncpy (month,6trunid[0] , 2 ) ; 
if ( atoi ( year ) s= 68 && atoi(month) < 6) 
old.file si; 

else 

old_file * 0;. , , , 

if ( diagnosis )printf ( "old_f ile = %d\n »old_file), 

if ( ! old.file)' { ^ . ... . 

f read(&mcycle , siseof ( int ) » 1 » storefile ) , 
f read ( title , siseof ( char ) , NDUWMY , storefile ) ; 

fseek(storef ile»0L,0) ; /* rewind */ 

/* Determine the sizes of header and data sets. */ 
siseof header = (long) (10*siseof (char ) * 6*siseof ( double ) ) 

+ siseof (int); /* size of the run information */ 
si 2 eof set = (long) (4*siseof (double ) + 3*siseof(int) 

♦ 2 * nread * sizeof (double) ) ; /* sise of one 

data set */ 

if(! old -^*J h £ ader 4S (Jose) (sizeof (int) * NDUMMY * siseof (char )) ; 

siseofset ♦s (long)(3 » siseof (double ) * NDUMMY » siseof (char )) , 

/» Add to "siseof set” the sise of the 3 new arrays used in 
the cross-wire measurements */ 

siseofset ■*•= (long) (3 * nread * siseof (double) ) , 

/* Print title. */ 
printf ( ”\n Title :\n“); 
printf ("Xs\n”, title)* 


if(. summaries in English end SI units 

and dimensionless form. */ . .. . . 

/» Echo print input data in English units. */ 
printf ("\n Input data summary in English units: \n"); 

stroke s *6. If in\n”, mstroke/0 L 0254) ; 

bore = *6. If in\n 

test section diameter = 


printfC 
printfC 
printf ( ' 


printfC' test section length 
printfC' axial location 


mbore/0.0254) ; 

*6. If ln\n", 

Bdi am/0.0254); 
X6.if in\n” , 
mlength/0 . 0254 ) ; 
X6.1f in\n". 
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•axial /O. 0254); 

printf ( ** drive abaft freq s XB.lt rpm\n'\ freq*240.); 
printfC " Xd readings taken per cycle\n”, creed); 
if(! ©ld_file) { 

printfC" Maximum number of cycles *); 
printfC" to be acquired s Xd\n", mcycle); 
printfC" Comment: Xs\n", dummy); 

printf ("Type a character followed by <CR> to continue. \n"); 
if ( acanf ( "Xs “ , reap ) ) ; 

/♦Echo print input data in SI units. */ 
printf("\n Input data summary in SI units:\n"); 
printf(*’ stroke = X6.1f tnm\n‘\ mstroke*1000) ; 

printfC* bore = *6. If mm\n", mbore*1000) ; 

printfC” test section diameter = X6.1f •m\n” # 

•diam*1000) ; 

printfC'* test section length = X6.1f am\n”, 

•length*1000) ; 

printfC” axial location r X6.1f nm\n" ( 

•axial*1000); 

printfC” frequency = X6.3f Hz\n”, freq); 

printfC M Xd readings taken per cycle\n" , nread); 

/* estimate of the amplitude of the bulk-mean velocity */ 
uavemax = FI * freq * mstroke * (mbore*mbore ) / (mdiam*mdiam) ; 
printf C "Estimate of the amplitude of the bulk-mean velocity "); 
printf ("s X5.2f m/sec\n”, uavemax); 

/* Calculate and print similarity parameters. */ 
printfC "\n Nominal similarity parameters : \n” ) ; 
printfC" Remax * X10.2e\n”, 

Remax s FI*mbore*mbore*f req*mstroke / ftdiam / HU); 
printfC" Va = X6.1f\n", 

Va = 0. 5*PI *f req*mdi am*mdiam / NU); 
printfC" Ar : X6.2f\n", 

Ar s mbore*abore/(mdiam*mdiam )*mstroke/n length) ; 
printfC" 1/d = X6.lf\n", loverd s alength / ndiam); 

printfC" x/1 = 'XB.SfXn", xoverl = ttaxial / mlength); 

printfC" x/d e X6.1f\n", xoverd = maxial / ndiam); 

/* Reset control parameters. */ 
trace s 0; 
profile s 0; 
average s 0; 

/* Enter type of output desired. */ 
forCinerr = 1; inerr; ){ 

printf ( "\nEnter t for trace\n"); 

printfC” p proinevn j; 

printf ( ” a average\n ” ) ; 

scanf ( "Xs”, resp) ; 
switch(resp[0] ) 

{ 

case *t # : 

trace = 1; 

printf C "Trace will be plotted. \n" ) ; 
break; 
case *p': 

profile = 1; 

printf ("Profile will be plotted. \n" ) ; 
break; 
case 'a*: 

average = 1; 

printf ("Transient of bulk-mean "); 
printf ("quantity will be plotted. \n" ) ; 
break; 

default: 

printf ( "Enter correct code letter. \n"); 
break; 

) 

printf (”\n Entry correct? (y or n)\n"); 
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scanf ( "Xs" , reap); 

if (resp[0] == 9 y * !! resp[0) == ’Y*) 
inerr =0; 

else if(resp[0] = = # n f !! resp[0] == ’N’H 
/* Reset control parameters. */ 
trace * 0; 
profi.le = 0; 
average = 0; 

} 

else{ 

printfC Respond with y, Y for 'yes’; "); 

printf ("or with n, N for ’no* next time An"); 

/* Reset control parameters. */ 

trace = 0; 

profile = 0; 

average = 0; 

} 

} 


/* Scan the file for wall distance entries. */ 
fseektstorefile.siseofheader.O) ; /* Rewind and move to 
beginning of first data set. */ 

flag = is 
nrad =0; 
i = 1; 

while (flag != 0){. 

flag = f read(&dist[i 3. sizeof (double ), 1 , storefile) ; 
if (flag ) 

{nrad = nrad + 1; 

if ( diagnosis ) printf ( "Read set * Xd\n", nrad); 
rptr[i] = ftelKstoref ile) 

• (long) sireof (double) ; 
f seek(storef ile, siteof set 

- ( long) siseof (double) ,1); } 


else 

{if (diagnosis ) printf ("flag = 0\n");} 
i = i + 1; 

if (diagnosis )printf ( "# of radial data sets = Xd\n",nrad); 


if ( ! fast ) { 

/* Echo list of radial data sets. */ 
printfC 1 There are Xd radial data aetsAn", nrad); 
printfC’ (Negative distance indicates deactivated "); 
printf ( ‘’data set An*’); 

printf ("Number \tdistance \tdi stance \tradius /\n"); 
printfC' Yt(mm) \t( inches) \ttube ” ); 

printf ( "radius\n” ) ; 
for(i = 1; i <= nrad; i++) { 

printf ("Xd Xf Xf * Xf\n", 

i, dist[i]*1000 , , dist [i ] /0 . 0254 , 

1. - 2.*dist[i]/mdiam) ; 

} 

/* To remove data sets, substitute distance from the 
wall by its negative value. */ 

printf ("\n Do you want to (de) activate any data set? "); 
printf ("(y or n)\n"); 
scanf ( "Xs" , resp); 

if(resptO) == t y t !! resp[0] == * Y’ ){ 

printf ("Enter numbers of sets to be "); 
printf (" (de ) activated. (Enter's to "); 
printf ( "terminate. )\n" ) ; 
while (scanf ( "Xs" , resp)){ 

if(resp[0] == # s*) break; 
i s atoi( resp); 
dist [i] = - distti]; 
f seek (storefile, 

* siseofset*(long) (i-1 ) + 
siteofheader ,0 ) ; 

fwrite(4tdist[i] ,siseof (double) , 1 .storefile) ; 

} 
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} 


) 


if (trace ){ 

if ( ! f ast ){ 

/* Chbbse a radial location at which the traces are to 
be plotted. */ 

printf ( "Enter number of the trace to be plotted. \n*'); 
whiie(scanf ("*d" , deposition) sz 0){ 
getcharO; 

printf (" Enter the integer number **); 
printf ("of the trace !\n"); 

) 

) 

/* Move to the data set of this radial location. */ 
f seek ( storef ile , (long) (position-1 )*siseof set 
4 siteofheader,0) ; /* Move to 
beginning of desired data set. */ 
if (diagnosis )printf ( "siseof set s Xd\n" , aiseof set ) ; 
if (diagnosis)printf ("siseofheader = %d\n" , siseofheader ) ; 

/* Read in the desired data set. */ 
f read (&di stance, siseof (double) , 1 , storef ile) ; 
freed (^accuracy , siseof (double) , 1 , storef ile) ; 
f read (Alastcy , siseof ( int ) , 1 , storef ile) ; 
freed (&maxuerr f siseof (double) , 1 , storefile); 
f read (fciuerr, siseof (int) , 1 , storef ile) ; 
f read (Amxrmserr, 6iseof (double ) , 1 , storefile) ; 
f read (fitirmserr, siseof ( int) , 1 , storefile) ; 
freed (Humean [ 13 , siseof ( double ) , nread , storef ile) ; 
freed (&urms [ 1 ] , siseof (double) , nread , storef ile ) ; 
f read(Avaean[ 1 ) .siseof (double) .nread, storef ile) ; 
f read(&vrms[l] , siseof (double ) , nread , storefile) ; 
f read (Aupvpfl ] , siseof (double ) .nread, storef ile) ; 
if ( i old_file) { 

f read(AT_dry , siseof (double) , 1 .storefile) ; 
f read <$tT_wet , siseof ( double ) , 1 , storefile ) ; 
f read (&p_atm, siseof (double) , 1 , storefile) ; 

/* Read and print comment. */ 
f read (dummy , siseof (char) , HDUMMY, storef ile) ; 
printf ( "Comment : %s\n" , dummy); 

} 

/* Print out air state for this trace. */ 
if ( ! old_file) { 

printf ( "dry-bulb temperature = *lf degr.C\n", 

T_dry - 273.15); 

printf ( "wet-bulb temperature = %lf degr.C\n", 

T_wet - 273.15); 

printf ( "atmospheric pressure = %lf bar\n", 

p.atm * l.e-05); 


/* Print out air properties for this trace. */ 
if ( ! old.file M ( I fast)) 
for(inerr = 1; inerr;) { 

printf ("Do you want to list property values? "); 
printf ( " (y or n)\n"); 
scanf ( "*s " , resp); 

if (resp[0] == *y* {{ resp[0] ss f y» ) { 

printf ( "Enter humidity ratio, air content **); 
printf ( "(kg/m*3) \n"); 
printf ( "from psychrometric chart "); 
printf ("at 1 atmosphere . \n" ) ; 
scanf ( "fclffclf " , Ahum_ratio, 6air_cont); 
rhod = dry_ai r.dens i ty ( T_dry , p_atm); 
rho r (p.atm / 1.013e405) * air_cont 
* (1. 4 hum_ratio); 

printf ("Air density (dry, humid) s %lg, %lg\n # \ 
fhod, rho); 
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printf ("Air density decrease "); 
printf ("due to humidity s Xlg%X\n" , 

(1. - rho / rhod) * 100*); 
printf ("Relative humidity = %lg%%\n", 
rh s 100* * hum^ratio 
* (P_atm - psat_water(T_dry ) ) 

/ 0.622 / psat_water(T_dry ) ) ; 
printf ("Air dynamic viacosity = %lg\n". 

mu = air_viscosity(T_dry ) ) ; 
printf("Air kinematic viscosity « *lg\n'\ 
nu = mu / rho) ; 

printf ("Air thermal conductivity s *lg\n" # 
cond s air_cond(T_dry ) ) ; 
print* ("Air specific heat at constant "); 
printf ( "pressure s *lg\n‘\ cp * air_cp(T_dry ) ) ; 
printf("Air thermal diffusivity = Xlg\n"» 
alpha s cond / rho / cp); 
printf("Air Prandtl number s %lg\n", 

Pr s nu / alpha ) ; 
printf ("Entry correct? *' ); 
printf ( " (y or n)\n" ); 
scanf ( "Xs" , resp) ; 

if (resp[0] == *y' !! resp[0] # Y* ) { 

inerr s 0; 

} 

) 

else if(resp[0] == # n* !! resp[0] == ’N’ ) { 
inerr s 0; 

) 

else { 

printf (" Respond with y* Y for 'yes’; "); 
printf ("or with n, N for ' no’;\n"); 
printf ("or with s, S for ’stop* next time An"); 
} 


/* Print data in column format to be plotted. »/ 
tracefile s fopen{ "trace" , "w" ) ; 
for(i = 1; i <= nread; i++){ 
if(rms) { if(Jradial) 

{ uprt = urmsfij; 

if (diagnosis) printf ( "processing urms\n" ) ; 

} 

else 

{ uprt = vrmslil; 

if (diagnosis)printf ( "processing vrms\n" ) ; 

} 

} 

else if(Rss) 

{ uprt = upvpti]; 

if ( diagnosis ) printf ( "processing upvp\n" ) ; 

} 

else 

{ 

if ( iradial ) 

{ uprt = umean[i]; 

if ( diagnosis )printf ( "processing umean\n" ) ; 

} 

else 

{ uprt * vmeanfi]; 

if (diagnosis )printf( "processing v»ean\n" ) ; 

) 

J 

fprintf (tracefile, "%f *f\n", 

(double) 1 a 360. / (double) nread, uprt); 

f close(tracef ile) ; 

) 

if (write_all){ 

f or ( i » 1; i <= nrad; i++){ 
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/* Read and process non-deactivated traces. »/ 
if (dist[i) > 0.0){ 

7* Move to the data set of this radial 
location. */ 

fseek(storef lie, (long) (i - l)»sizeofset 
4 si seof header , 0 ) ; /* Move to 
beginning of desired data set. */ 

/* Read in the desired data set. */ 
f read (4di stance, siseof (double) , 1 .storefile) ; 
f read (4accuracy, siseof (double ),l,storef ile); 
freed (41astcy, siseof (int) , 1, storefile ) ; 
f read (toaxuerr , siseof ( double ) , 1 , storefile ) ; 
fread(4iuerr, siseof (int) , 1, storefile); 
freed (4mxrmserr , siseof (double) . 1 , storefile) ; 
f read (4 irmserr, siseof ( int ) , 1 . storefile) ; 
fread(4umean[l] , siseof (double) .nread, storefile) ; 
f read (turns t 1] . siseof (double) .nread, storefile) ; 
fread(4vmean[l) , siseof (double) .nread, storefile) ; 
fread(4vrms[l) , siseof (double) .nread, storefile) ; 
f read ( 4upvp [ 1 ) , s i seof ( double ) , nread , storefile ) ; 

/* Print data in column format to be plotted. */ 
strcpyftfname, "trace"); 
sprintf (tf number , "*d" , i) ; 
street ( tf name , tf number ) ; 
tracefile = f open (tf name, "w") ; 
for(iangle = 1; iangle <= nread; iangle++){ 
if(rms) { if ((radial) uprt s urmstiangle) ; 
else 

^ uprt = vrms[iangle) ; 

else if(Rss) uprt = upvp[iangle] ; 

else { 

if (.'radial) uprt s umean [ iangle) ; 
else 

uprt = vmean [ iangle) ; 

fprintf (tracefile, "*f *f\n", 

(double) iangle * 360. / (double) nread, 
uprt ) ; 

) 

fclose(tracefile) ; 

) 

} 

) 

if (profile !! average write_all){ 

/* Sort traces with increasing wall distance. »/ 

/* Write wall distances and data-set pointers into 

new arrays, omitting deactivated data sets. */ 
for(i - 1, j s l; i < = nrad; i4*){ 
if (dist[i) > 0.0){ 

sortdisttj) = dist[i] ; 
rptr[j] = rptrli); 

J = J 4J; 

) 

) 

nsort = J - 1; 

/* Rearrange the arrays. */ 

/* (See section 6.1 of W. B. Press et al.: Numerical 

Recipes, Cambridge (UK) University Press 1986.) */ 
for(J * 2; j <s nsort; j4+){ 
d = sortdist[j); 
p s rptr[j); 

for(i = J - 1; i >r i ; — i){ 

if (sortdistTi j > d){ 

sortdistli+i) 

s sortdist[i); 
rptrCi+l] s rptr[i); 
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else goto sortmark; 

} 

i = 0; 

sortmark: sortdist[i+l] s d; 

rptr[i+l] = pr 
) 


if (diagnosis){ 

printf ("Sorting results: \n’‘ ) ; 
printf (”# \tdi stance \tsorted \n“); 
for(i s 0; i <= nrad; i++) 

printf ("Xd YtXf \tXf \n". i, distTi). 

aortdist[i] ) ; 


) 


) 


if (profile){ 
if ( ! 


fast){ 

/* Choose phase angle at which the profile is to 
be plotted. */ 

printf ( "Enter the phase angle. \n“); 
while(scanf ( "Xlf " i fctime) -- 0){ 


printf (" Enter the integer M ); 
printf ( "phase angle !\n"); 

} 


/* Calculate the offset from the beginning of the data 
set to the entry corresponding to the time of 
interest in the storage file. */ 

/* If it is for u */ 

if (.‘radial 44 JRss) offset = (long) (3 * siseof(int)) 

4 (long) (4 * sieeof (double ) ) 

4 (long) (rms * nread * siseof (double) ) 

4 (long) ((time * (double)nread / 360. - 1.) 

* siseof (double) ) ; 

/* If it is for v */ 

else if(radial) offset r (long)(3 * siseof(int)) 

4 (long) (4 * siseof (double) ) 

♦ (long) (2 * nread * siseof (double) ) 

4 (long)(rms * nread * siseof (double ) ) 

♦ (long) ((time * (double)nread / 360. - 1.) 

* siseof (double) ); 

/* If it is for upvp */ 

else if(Rss) offset s (long)(3 * siseof(int)) 

4 (long)(4 * siseof ( double ) ) 

4 (long) (4 * nread * siseof (double ) ) 

4 (long) ((time * (double )nread / 360. - 1.) 

* siseof (double) ) ; 


if (diagnosis) { 

printf ("offset of entry = Xld", offset); 

printf ("nread = Xd" , nread); 

printf ("time s Xf M , time); 

printf ("rms r Xd", rms); 

printf ( "Rss = Xd",Rss); 

printf ("radial = Xd"» radial); 


/* Read entries from data storage file and vrite to 
plot file. */ 

prof file s fopen( "prof file", " h") ; 

f printf (prof file. "Xf Xg\n*\ 0.0, umprf[0] s 0.0); 

ford «' 1; i <s naort; i 44 ){ 

/* Move to # the entries corresponding 

to this phase angle. */ 

fseek(storefile, (rptr[i] 4 offset),0); /* Move to the 

desired entry. */ 

/* Read in the desired entry. */ 

fread(4umprf[i) .siseof (double) , l.storefile) ; 

if (diagnosis ) { 

fseek(storefile, (rptr[i) 4 offset) ,0); 
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f read (&d , si teof (double ) , 1 , storef ile) ; 
printf (“radius sXf\n“ , d); 

: } ’ 

/* Print data in column format to be plotted. */ 
f printf (prof file, “Xf *g\ n”> 

aortd i s t [ i ] /mdi am , 
umprf [ i 3 ) ; 

) 

fclose(prof file) ; 

} 

if (write_all){ 

fordangle = 1; iangle <= nangle; langle*+H 

/* Choose phase angle at which the profile is to 

be plotted (every 30 degrees). */ 

time = (360. / ( double )nangle ) * (double) iangle; 

/* Calculate the offset from the beginning of the data 
set to the entry corresponding to the time of 
interest in the storage file. */ 

/* If it is for u */ 

if ( i radial && !Rss) offset s (long)(3 * aiseof(int)) 

4 (long) (4 * siseof (double) ) 

4 (longHrms * nread * siseof (double) ) 

♦ (long) ((time * (double )nread / 360. - 1.) 

* siseof (double) ) ; 

/* If it is for v */ 
else if (radial ) 

offset s (long)(3 * siseof(int)) 

+ (long) (4 * siseof (double) ) 

4 (long) (2 » nread * siseof (double) ) 

4 (longHrms * nread * siseof (double ) ) 

4 (long) ( (time * (double )nread / 360. • 1.) 

* siseof (double) ) ; 

/* If it is for upvp */ 
else if(Rss) 

offset = (long)(3 * siseof(int)) 

4 (long)(4 * siseof (double) ) 

4 (long) (4 * nread * siseof (double ) ) 

+ (long) ((time * (double )nread / 360. - 1.) 

* siseof (double) ) ; 

/* Read entries from data storage file and write to 
plot file. */ 
strcpyCpfnajne , “prof ile“ ) ; 
sprintf (pfnumber , “Xd“ , (int )time ) ; 
street (pf name ,pf number ) ; 
proffile s f open(pfname, “w“ ) ; 

f printf (prof file, “Xf Xf\n“, 0.0, umprf[0] s 0.0); 
for(i si; i <s nsort; !++){ 

/* Move to the entries corresponding 

to this phase angle. */ 
fseek(storefile, (rptr[i] 4 offset) ,0); /* Move 
to the desired entry. */ 

if (diagnosis ){ 

f read (&d , siseof (double ) , 1 , storef i le ) ; 
printf (“radius = %f\n“, d); 

) 

/* Read in the desired entry. */ 

freed dumprf [i ] , siseof ( double ) , 1 , storef ile ) ; 

/* Print data in column format to be plotted. */ 
f printf (proffile, # *%f Xg\n", 

sortdi s t [ i ] /mdi am , 
umprf [i] ) ; 

fclose(prof f ile) ; 

) 
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if ( average ){ 

/* Open file for results of computation of the 
cross-sectional average mean velocity. */ 
avefile * f open( “avef ile“ , “w” ) ; 

if(avefile == NULL) prlntf ( "avef ile was not opened.”); 
idealfile = f open( “idealf ile” , ”w“ ) ; 

ifddealfile NULL) prlntf ( “idealfile was not opened.”); 

/* Calculate cross-sectional area for averaging. */ 

/* The integral excludes areas beyond the centerline. */ 
aint = mdiam * mdiam / 6. ; 

/* Vary time. */ 

fordtime = 1; itime <s nread; itime44){ 

if (diagnosis) printf ( “itime =%d\n“ , itime); 

/* Calculate the offset from the beginning of the data 
set to the entry corresponding to the time of 
interest in the storage file. */ 

/* If it is for u */ 

if(Jradial) offset s (long)(3 * siseof(int)) 

4 (long)(4 * siseof (double ) ) 

4 (long)(rms * nread * siseof (double) ) 

4 (long) ( (time * (double )nread / 360. - 1.) 

* siseof (double) ) ; 

/* otherwise it is for v */ 
else 

offset s (long) (3 * siseof(int)) 

♦ (long)(4 * siseof (double ) ) 

♦ (long) (2 * nread * siseof (double) ) 

♦ (longHrms * nread * siseof (double ) ) 

♦ (long) ((time * (double )nread / 360. - 1.) 

* siseof (double) ) ; 

/* Read the mean-velocity profile. */ 
umprf[0] = 0.0; /* Set mean-velocity at the wall 

to sero. */ 

ford = 1; i <= nsort !J sortdist[i) <= 0.5*mdiam; i++){ 
/* Hove to the entries corresponding 

to this phase angle. */ 
fseek(storefile, (rptr[i] 4 offset) ,0); 

/* Read in the desired entry. */ 
freaddumprf [i] , siseof (double) , 1 , storefile) ; 
if (diagnosisH 

printf (“velocity =%f\n”, umprf[i]); 

) 

/* Integrate profile at this time. */ 

/♦'(Read the Oscillating Flow Experiment Log 
entry of 3/15/86 for details on the integration.) */ 
umint s 0.0; /* Set integral to sero. */ 

/* The integral excludes areas beyond the 
center-line. */ 
for(i * Is .i <» naort; i++){ 

riml s 0.5 * mdiam - aortdist[i-l) ; 
ri s 0.5 * mdiam - aortdistti]; 
if(ri riml) { 
continue; 

) 

else if (sortdistti] <s 0.5 * mdiam) { 

/* Integration between the far 
wall and the center-line. */ 
umint = umint 4 ((umprf[i-l] - 

umprf t i 3 ) / (riml - ri) 

* (rial*riml*riml/3. 

- ri*riml*riml/2. 

4 ri*ri*ri/6.) 

+ umprf[i] 

* 0.5 * (riml*riml - ri*ri)); 
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else if(riol > 0.0 kit ri < 0.0) { 

/* Integration to the center-line. */ 
/* ucl = interpolated 

centerline velocity */ 
ucl = (umprfti] - uaprf[i-l]) / 

(aortdistti] • eortdiat [i-1] ) 

* (0 . 5*mdiaa - aortdist[i-l] ) 

+ umprf[i]; 
uaint = uaint 

4 ((umprf[i-l] - ucl) / rial 
* (riml*riml*riml/3. ) 

4 ucl * 0.5 * riml*riml); 

break ; 

) 

else { 

/* Exclude integration from 

center- line to the near wall. */ 
continue; 

} 

> 

if (diagnosisH 

printf ( “itime s Xd, uaint s Xf\n" ♦ 
itime, uaint); 

} 

/* Calculate and store the aean-velocity 

averaged over the cross-section. */ 
fprintf (avef ile, "XfYtXgXn", (angle = 

360. * (double)itiae / (double )nread) , 

uaint/aint); 

if (diagnosis) printf ( “Writing to avefile complete . \n M ) 
fprintf (idealf ile, "Xf\tXg\n M , 
angle , 

pi * freq * astroke * 
mbore*mbore / (mdiam*mdiam ) 

* fabs(sin(pi*angle/180. ))); 
if (diagnosis) printf ( "Writing to files complete. \n"); 

) 

f close ( avef i le ) ; 
f close (idealf ile) ; 

if (diagnosis) printf ("Files closed. \n"); 

} 

if (fast) not_done = 0; 

) 

/* Wake up the operator with a bell. */ 

for ( i = 0; i < 10; i44) printf (“Xc", ’VOO?*); 

the^end: ; 

/* End of the processing program “processx. c" */ 

} 
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VEL REDTURB 


/* vel_redturb 

Converts (u,y) data profiles for turbulent-like portions of the cycle 
into (u*,y+) by iterating on the wall shear stress and y-offset. 

Results are stored in “upyp" 

The data is compared to curves which model the pressure-gradient effect. 
Results are stored in “upyppress" 

G. Friedman, 10/90 */ 


znain( ) 

{ 

# in elude <stdio. h> 

^include <stririg.h> 

^include <math.h> 

sdefine N 200 
Udefine N2 10 
^define YPMAX 49 
^define TUEE_D 1.5 
^define TUEE_R 0.75 
#def ine M 28.96 
^define R 6315 
^define CONV 0.0254 
^define STRLNG 30 
^define STRLNG2 100 
^define PI 3.14159265 
^define LIMIT 15 

FILE *prof ile , *dataf ile, *presf ile; 

int a,b, i , j,k, 1 ,m, inerr; 

double um[N] ,y[N] ,yorig[N] ,utau,uplus[N] ,yplus[N] ,ubm; 

double yovd , u , yof f set , dudt , pplus , angle , tmp , lnum, aplus .factor ; 

double t_dry ,p_atm, rho,nu,mu; 

double h , hover2 , s , x , sf , half , dupdyp ( ) ; 

char filename [ ] , theta [ 4 ] , resp[ STRLNG] , syst [ STRLNu2 j ; 

char syst2 [STRLNG2] ; 

printf (“This program converts (u,y) data profiles into (uplus,yplus)\n ); 
printf (“by iterating on entered values of cf (tau wall) and yoffset\n ); 
printf ( “** Turbulent profiles **\n\n“); 

printf ( "Input the crank position of the profile to be converted\n“ ) ; 
scanf ( “%s" , theta) ; 

printf (“theta = %s\n“ , theta ) ; % 

printf ( “Input the crank position of the profile to be converted\n ); 

scanf ( *'%lf “ , Wangle ) ; 

printf ( “angle = %f\n“ , angle ) ; 

strcpy(f ilename, “/usr/geof f /proc/prof “ ) ; 

strcpy(&f ilenamet 20] , theta ) ; 

profile = fopenCf ilename, “r“ ) ; 
if (profile == NULL) 

{printf ( “This file does not exist. \n“); 
exit ( ) ; 

3 

printf ( "Note that urn is corrected by 1.0205 for the temperature error\n“); 
do{ 

f scanf (prof ile, "%lf %lf“* &yovd. &u ) ; 

um[i] = u * 1.0205; /* u is in o/sec */ 

yorig[ i ] = CONV * yovd * TUBE_D; /* convert y/d to meters */ 

printf ( “i = %d y = %lf u = %lf \n“, i ,yorig[i] , um[ i ] ) ; 
i++; 

) 

while (yovd < 0.5); 
fclose(prof ile) ; 
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printf ( ”\nEnter t_dry (degr.C) and p_atm (bar ) : \n“ ) ; 
scanf ( “XlfXlf " , &t_dry, &p_atm); 

printf ( "t_dry = *lf degr.C p_atm = *lf bar\n” , t_dry ,p_atm) ; 

t_dry +=273.15; 

p_atro *= l.e+05; 

rho = p_atm * M / R / t_dry; 

printf ("rho = %f\n",rho); 

mu = 9.3277e-08 * t_dry - 1.2248e-05; /* viscosity at 1 atm */ 

mu # = (1.01325e+05 / p_etm); 

printf ( ’Anmu = %e\n‘\»u); 

nu = mu / rho; 

printf ( "nu = %e\n",nu); 

/* **** *******#^************* *************** */ 
fordnerr = 1; inerr; ){ 

printf ( "\nlnput the necessary y offset (in inches):”); 

scanf (”%lf A&yoffset) ; 

printf ( ”yoff set = Xf \n” ,yof f set ) ; 

yoffset * = CONV; 

f or ( k = 1; k <= i-1; k*+){ 

y[k ] = yorig[k] - yoffset; 

/* printf ("k = Xd y = %li u = %lf \n” »k,y[k] ,um[k] ) ; */ 

if (y [k] <= 0.0) y [k] = 0.0; 

} 

printf ( ‘’Input utau\n“); 
scanf ( "%if ” ,&utau ) ; 
printf (“utau = %lf \n",utau) ; 

datafile = f open ( "upyp" , "v" ) ; 
f or ( j = 1; 5 <= i-1; j++H 

uplus[ j] = um[j] /utau; 
yplus [j] = y[j] * utau / nu; 
if(yplus[j] > 0.0) 

/* printf ("j = Xd yplus [j] = Xf uplus[j] = Xf \n” , j .yplustj] .uplust 51 ) ; */ 

f printf ( datafile , " Xf Xf\n" , yplus [ j ] , uplus [ j ] ) ; 

} 

f close ( datafile ) ; 

/* uplus v s . yplus determination for effects of p-gradient */ 
presfile = f open ( “upyppress" , ”w" ) ; 
upl us [ 1 3 = 1.0; 
b = 1; 

f printf (presfile, "%d Xf \n” , b, uplus [b] ) ; 
dudt = -8.725 * cos(angie * PI / 180.); 
pplus = (nu * dudt) / pow ( utau , 3 . ) ; 
if (angle <= 90.0) 

factor = 30. 175; 

else 

factor = 20.59; 

aplus = 25.0 / ((factor * pplus) + 1.0); 
if(aplus <= 0.0) 

aplus = 1000; 

printf ( "aplus s %f\n’V, aplus) ; 

h = 0.1; 
hover2 = 0.05; 

/* loop to determine uplus vs. yplus */ 
for(m = 1 ; m <= YPMAX;m++){ 
a = m;* 
b = a + 1 ; 
s = 0.0; 

half = dupdypf (double) (a) + hover2,aplus); 
ford = 1;1 <= (N2-1 ) ; 1++ ) { 

x = (double)a + (double)l*h; 

s = s + dupdyp(x , aplus ) ; 

half s half + dupdyp(x + hover2 » aplus ) ; 
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4 


sf 5 (h/6 . 0 )*(dupdyp( (double)a, aplus ) + 4.0*half + 2.0*s 

«f dupdyp( ( double )b , aplus ) ) 

/* uplus determination */ 
uplustb] = sf ♦ uplus[a]; 

/* printf ( "ypius = %6 uplus[%d] = %f \n" .b.bpuplustb] ) ; */ 
fpr in tf (presf ile , "Xd %f \n" , b, uplus [-b] ) ; 

} 

fclose(presfile) ; 

printf ( "\nScreen plot of velocities desired? y or n\n*‘); 
scanf ("%s" , resp) ; 
if(resptO) zz’y ' ) { 

strepy ( syst , "graph -s -g 1 -x 1 .1 100 ); 

street ( syst,"-y 0 35 5 < upyp ! plot" ); 
system(syst) ; 

strepy (syst2, "graph -s -g 1 -x 1 .1 100 M ); 
streat ( syst2 , *'-y 0 35 5 < upyppress ! plot"); 
system(syst2) ; 
scanf ( "Xs" , resp) ; 
system( "erase" ) ; 

) 


printf ( "Paper plot of velocities desired? y or n\n"); 
scanf ( "Xs" , resp) ; 

if ( resp[0] = =’y’H , 

strepy (syst, "graph -s -g 1 -x 1 1 1000 ), 

streat ( syst , "~y 0 35 5 < upyp i plot -Thpib"); 
system(syst ) ; 

strepy ( syst2 , "graph ~s -g 0 -x 1 1 1000 ) ; 

streat ( syst2 , "-y 0 35 5 < upyppress I plot -Thpib"); 

system(syst2) ; 

) 


printf ( "aplus = %f \n" , aplus ) ; 

printf ("Input the bulk mean velocity\n" ) i 

scanf ( "XI f " , &ubm ) ; 

printf ("ubm = Xf\n" f ubm); 

printf ("utau = Xlf \n" ,utau ) ; 

printf ("cf s Xf\n",pow( (utau/ubm) , 2. ) * 2.); 

printf ( "\nContinue the iteration on yoffset and utau?\n"); 

scanf ( "Xs" , resp) ; 

if(resp[0] == ’n’) inerr = 0; 

/* ********************* ****** ************** */ 

printf ("rho = Xf\n",rho); 

printf ("utau = %f\n",utau); 

printf ( "utau * “utau = Xf\n",utau * utau); 

printf ("tau wall = %f\n",utau * utau * rho); 

printf ("ubm = Xf\n",ubtn); 

printf ("cf = Xf \n",pow( (utau/ubm) ,2. ) * 2.); 
printf ( "aplus = Xf\n" , aplus ) ; 
printf ( "yoffset = Xlf \n" , yof f set ) ; 


/* end */ 

) 
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DUPDYP 


Hinclude <math.h> 

Udefine KAPPA 0.41 

Xdefine square(x) (x) * (x) 

double dupdyp(yplus.aplus) 

doubU determines duplus/dyplus for the given yplus */ 


double slope , argl i erg2 t arg3 » 
double damping;. 

damping s 1.0 - 1 .0/exp(yplus/aplus) ; 


/» Van Driest mixing length model with variable A / 
argl s square(KAPPA*yplus) ; 
arg2 = square ( dampi ng ) ; 
arg3 = sqrt(1.0 + 4 . 0*argl*arg2) ; 
slope = (-1.0 ♦ arg3)/(2.0*argl*arg2) ; 


1 


return! slope) ; 
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VEL REDLAM 


/* vel_redlam t , 

Converts (u,y) data profiles in the laminar-like portions of the cycle 
into (u+,y+) coordinates by iterating on the wall shear stress and the 
y-offset. Results are stored in "upyp" 

Also generates a (u+,y+) curve based on a pressure-gradient influenced 
model for the Couette flow region. Results are stored in "upyppress" 
G. Friedman, 10/90 */ 

main ( ) 

{ 

•include <stdio.h> 

•include <string.h> 

•include <roath.h> 

•define N 200 
•define TUBE JO 3.5 
•define TOBEJR 0.75 
•define M 28.96 
•define R 6315 
•define CONV 0.0254 
•define STRLNG 30 
•define STRLNG2 100 
•define FI 3.14159265 
•define LIMIT 15 


FILE *profile,*datafile,*presfi!e; 

int i , j,k, 1 ,inerr; 

double um[K] ,y[K] ,yorig[N] . utau , uplus [N] ,yplus[N] , ubm; 
double yovd , u , yoff set , dudt , const .angle , tmp, lnum ; 
double t_dry »p_atm, rho, nu ,mu ; 

char f i lename { ] , theta [43* resp [STRLNG ] , syst [STRLNG 2 ] ; 
char syst2 [STRLNG2] ; 


printf ( “Thi s program converts (u,y) data profiles into (uplus,yplus)\n ); 
printf(’’by iterating on entered values of tau wall and y-of f set\n" ) ; 
printf ( "** Laminar profiles **\n“); 

printf ( "Input the crank position of the profile to be converted\n“ ) ; 

scanf ( "%s " , theta ) ; 

printf { “theta = %s\n“ , theta ) ; 

printf ( “Input the crank angle of the profile to be converted\n * ) ; 

scanf ( "%lf " , Wangle) ; 

printf ( “angle = %f \n“ , angle ) ; 

strcpy (filename. “/usr/geof f /proc/prof " ) ; 

strcpy (&f ilename[20] .theta) ; 

profile = fopen( filename, “r“ ) ; 

if (profile == NULL) 

{printf ( “This file does not exist An”); 

# exit ( ) ; 

) 


x = i; 


printf (“u corrected by 1.0205\n*‘ ); 
do{ 

f scanf (profile, “%lf %lf“, Ayovd, &u); 

umti] = 1.0205 * u; /* u is in m/sec */ 

yorigli] = CONV * yovd * TUBEJD; /* convert y/d to meters * 

printf ( “i = %d y • %lf u = %lf \n“ , i , yorig[ i] , um[ i ] ) ; 


/ 


} 

while (yovd <0.5); /* ignore pts. beyond ctrlne */ 

f close(prof ile) ; 


printf ( 'AnEnter t_dry (degr.C) and p_atm (bar):\n“); 
scanf ( " , &t_dry , &p_atm) ; 

printf ( “t_dry = %lf degr.C p_atm = %lf bar\n“ ,t_dry ,p_atm) ; 
t_dry += 273.15; 
p_atm * = l.e+05; 
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/* viscosity at 1 atm */ 


rho = p_atm * M / R / t_dry; 

printf ("rho = Xf\n",rho); 

mu = 9.3277e-08 * t_dry - 1.2246e-05; 

mu *= ( 1 . 01 326e+05 / p_atm); 

printf ( "\nmu = Xe\n",mu); 

nu = mu / rho ; 

printf (“nu s Xe\n’',nu); 


/* »*(MU*>*n»»MM»*»*l*tXttX<*l'*<*»*«*** */ 


for(inerr = 1; inerr; ){ 

print f ( “\n Input the necessary y offset 

scanf ( "Xlf" ,&yoffset) ; 

yoffset *- CONV ; 

forth = 1; k <= i-1; k+*H 

y[k] = yong[k]-- yoffset; 

/* printf ( "k = Xd y = Xlf u = 
if ( y [k] <= 0.0) y[k] = 0.0; 


( in inches 


Xlf\n" , k,y [k] ,um[k] ) ; 


} 


*/ 


printf ( “Input utau\n”); 

scanf ; "Xlf " , &utau ) ; 

printf ( “utau = Xlf\n",utau) ; 


datafile = f open ( “upyp" , “w" ) ; 

f or ( j = 1; 5 <= i-1; j++H 

up 1 u £ [ j 3 = um[j] / utau; 
yplusi j] = y [ j ] * utau / nu; 

/* printf ( “yplus = Xlf uplus = Xlf um s 


Xlf \n" .yplus [j] .uplus [.j] , umf j] ) 


*/ 

if(yplus[j] > 0.0) 

f printf (datafile, "Xf Xf \n" , yplus [ j] , uplus I j] ) ; 


) 

f close ( datafile) ; 


presfile = f open( "upyppress" , "w" ) ; 
dudt = £.720 * cos(angle * FI / 160.); 
const = (nu » dudt) / (2 * pow(utau , 3 . ) ) ; 


1 = 0; 

do{ 

l**; 

uplus [11 = 1 - const * pow(l .0*1,2. ) ; 
lnum = 1; 

/* printf ( “\nyplus = %f uplus = Xf " , lnum , uplus[ 1 ] ) ; */ 

fprintf (presfile, "Xf Xf \n" , lnum, uplus [1] ) ; 

} 

fciose(presfile) ; 

printf ( "\ndudt = Xf\n",dudt); 
printf ( “const = Xf\n" .const) ; 

printf ( "\nScreen plot of velocities desired? y or n\n“); 
scanf ( "Xs" ,resp) ; 
if (resptO] == 'y ’ H 

strcpy(syst, “graph -s -g 1 -x 1 .1 100 " ) ; 
strcat(syst, "-y 0 35 5 < upyp ! plot"); 
system (syst) ; 

strcpy (syst2, "graph -s -g 1 -x 1 .1 100 " ) ; 
strcat(syst2, “-y 0 35 5 < upyppress ! plot"); 
system( syst2) ; 
scanf ("Xs",resp) ; 
system( "erase" ) ; 

J 

printf ( "Paper plot of velocities desired? y or n\n"); 
scanf ( “Xs" ,resp) ; 
if (respIO] ==’y’ ){ 

strcpy(syst, "graph -s -g 1 -x 1 .1 100 "); 
street ( syst , “-y 0 35 5 < upyp : plot -Thpib"); 
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system( syst ) ; 

strcpyC syst2 , "graph -s -g 0 -x 1 .3 100 "); 
strcat(syst2, ”-y 0 35 5 < upyppress ! plot -Thpib"); 
system(syst2 ) ; 

J 

printf ( "Input the bulk mean velocityVn" ) ; 

scanf ("%lf " ,&ubm) ; 

printf("ubm = %f\n’\ubm); 

printf ( "utau = %lf \n" , utau) ; 

printf ("cf = Xf \ii’;,pow( (utau/ubm) ,2. ) * 2.); 

printf ( M \nContinue the iteration on yoffset and utau?\n“ ); 

scanf ("fcs",resp) ; 

if (resp[0] == ’n’) inerr = 0; 

/* * ** ** *********** ************************* */ 

printf ("rho = %f\n’\rho); 

printf ("utau =■ Xf \n*’ ,utau ) ; 

printf ( "utau * utau = %f\n",utau * utau); 

printf ("tau wall = %f\n" ,utau * utau * rho); 

printfC'ubm = %f\n" t ubm); 

printf ( "cf = %f\n",pow( (utau/ubm) , 2 . ) * 2.); 

} 
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